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comment: 



TITLE! Bb500/e5700 MaRi^ XIV SYSTEM NtLF ASE * OOQOOOOl 

FILL id: SYM(,OL/DUMPaNi. TAPE IQ: i>YMbLL2/F ILEOOO * 00000002 

THIS MATFRIAI TS PkUPRILTAftY Tf, RUHKnii^HS C. flRPflR A T J nKj * OOOQOOO3 

♦ OOOOOOOfl 

* 00000005 
•* QOOOOnOft 



AND IS NOT TO BE REPRQUUCED^ USED> QR OlSGUaSEO 
EXCEPT IN ACCUHDANCL WITH f^BC(iRAM t-ICENSE DR UPON 
WRTTTffN AliTHnRiZATinM OF Thg PaTFMT DIVTSmM nF 



* BURRDUGhS CCJPPURaTIUN/ UEThOlTf MiCHILAIN 46232 



* 



COPYRIGHT Cr.) 1971> 1V^2 BlKHLLGHS COHPUKATION 



0000000? 

ooouoooe 
OOOOOQ09 



* AA220206 AA332366 AA386657 
DUMP/ANALYZE 
LAST PATCHED n/2t/7.1 



*; 



^— LAST PATChEO n/2t/7.1 

SEVERAL OPTIONS ARE AVAILABLE FUK CONTROLLING THE 
OF A MEMORY DUMP, TbEY M/iY BE CL^SilFIED INTO FOUR C 



ANALYSIS 
ATEGORILS: 



OOOOOOlO 
00000012 
Q0QU0Q13 



I. T 
SPLASH 



HOSE WHICH SPECIFY THE FOR^iAT OF THE PR INTOUT OF MEMORY » 
,H OUMP#OCTAL DUMP* ALPHA/OCl AL OUMP^OR AirHA D^MP' 
R SINGLY nR nntiRt Y sPAdrn. 



00000015 
00000020 

nouonozb 



00000030 
00000040 
QOOOQO'^Q 



II. THOSE WHICH INCLLDL 
TNCLUDEn riR FXCLUPFn: 



OR EXCLUDE AREAS UF MEMORY NCT OTHERWISE 



00000055 
00000060 
00000070 



1. INCLUSION OF AVAILABLE 

2, EXCLUSION OFJ 

JU MTP CODE ARFAS. 



AREAS. 



00000080 
OOOOOllO 
00000130 



B. NORMAL STATE CODE AREAS. 

C. NORMAL STATE AREAS UTHER 
SPECIFIC MIX INDEX WHERE 1H 



£-K 



THmN THOSE RELATING TO 
IX TNOEX IS spf:ctfild B 



D. ENTIRE CONTENTS CF MEMORY 
III. THOSE WHICH CAUSE OMISSION OF 
-U OMISSION OF THE PBTNTQWT OF BCP 



ONE 
T THE UStR, 



00000130 
00000140 
QO^JUOnO 



CERTAIN SECTIONS OF ANAlYSISJ 
PRt TDE^TlFTFRSf .SQRTED 



ALPHABETICALLY AND BY PRT LOCATION. 
JUL* THnSE WHTCH CnMRHL THF nuwPING riF STA^K-Si 



00000155 

00000160 
nnoQQi7n 



1. EXCLUSION Of 
8EL0NGINQ TO THE 
?. INcI USiQN Of 



ALL NORMAL STATE STACKS EXCEPTING THE ONE 

SAME Mix INDEX AS THE ONC SPECIFIED BY THE USER. 

A USjtR SgLprTfp "STArK" ARgA Wktrw Thg 



00000180 
00000205 
00000210 



ANALYZER WOULD BE UNABLE TO LOCATE hITHQUT THE U^Ei^-'S ASSISTANCE. 
THE MAJORITY OF GFTlD^S MAY bE SET U5l.^3 A CUmwi]i\ COimTRGi 



0GOO02|a 

00000230 

nnooQaao 



00000250 

00000255 
00000260 



card; a few may be SET ONLY VIA THE 
CONTENTS OF CERTAIN PRT CEllS wHICH 
CONTROL FUNCTinNS. 



"IN" 

Have 



MESSAGE TO ALTER THE 
BEEN RESERVED FOR 



00000270 
00000280 
00000290 



THE COMMON CONTROL CARD IS ASSUMED TO CONTAIN An EIGHT DIGIT 
NUMreR—IF LFSS THAN ET<?HT aPPFaR^ LEA n iNfi ZER OE S AR fl 



AUTOMATICALLY 
TWO QROUPSJ 



SUPPLIED. THE ANALYZER SEPARATES THE 8 DIGITS INTO 



00000295 
00000300 
Q000031Q 



A, THE 5 LEFT-MOST DIGITS ARE EXPECTED TU HE *OCTAl* DIGITS 
WHICH REPRESENT THE ToP-OF-STaCK ADUH£SS QF THE USER SPECIFIED 
"ST A CK" A REA. TF AMY n I G T T FYrt-'Fr).'^ "7" (1^^ TF AIL FT\/F AHF "n*>. 



00000320 

00000330 



ONLY STACKS LOCATED BY THE ANALYZeJJ WILL BE DUMPED. OTHERWISE* 
ONfe ADDITIONAL "STACK"* PROVIDING IT ALREADY HAS NOT BEEN DUMPED* 
KILL BE DUMPED STARTING AT THIS ADDHESS AND CONTINUING UNTIL 



00000340 
00000350 
00Q00 360 



200CDECIMAL) WORDS BELOW IT HAVE BEEN PRlNTtOC THE STACK IS 
ASSUMED TO BE A CONTROL STATE STACK FQR PURPOSES OF STACK 
ANALYSIS). SHOULD MERE OR LESS STAQrS riE DESIREO* ThE AMOUNT 



00000370 
00000380 
O0Q0Q390 



( li^ DECIMAL) OF STACK TO ANALYZE CAN BE ENTERED INTO PRT CELL 

iSTCQCTAL) USING THE «IN" MESSAGE. 

IN MOST CASES* THE TQ-P-OF'STAcK VALUE USED MAY BE THE SETTING 



00000400 
00000410 
00000420 



000004 30 
00000435 
00000440 
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OF THE "S" HEGISTtR TAKlN FROM THe: JiSPLAY PANtL AT THE TIME 00000445 
OF THE HANG. IF NO TrP-GF-STACK IS bptClFItQ THL ANALVilER WILL OBTAIN 00000450 
nNE TRHM THF rnNiTRHi «; T A T f MS^,^ LnCATFR In cFIL f» THF STACK nnOGU4 ' ^l - 



obtained in this manner is 
links have been clobberto. 



GENERALLY OF INTEREST* ESPECIALLY WHEN 



6. THE RIGHT-MOST 3 Cl^ilTa ARE iNTLRPRETtD AS UtClMAL CIGITS 
ANL) SERVE TO SET TME MAJORITY UF ANALYZEH OPTIONS. GENtf^ALLY 
SPEAt^Tf^iG. THFSr flPTT P K S ttR F TmTFGRA i P fl^ERJ) OF ?r ARF iNnPP F ND F NT 



Of ONE ANOTHER AND MAY THEREFORE BE USED AO0I Tl Vt-LY , THAT IS< 
THE COMBINED FUNCTIONS OF COMMON VALUES 2»16* 32* AND 64 
pnin n af yMv/ni^rn rv wrn M MniMai 1 4 "( ?-»ift4 ^P + ft fl 1 . THE FynFFTTHNS 
TO THIS RULE WILL BE ELABOfUTED AFTLR EACH CQMMUN OPTION IS 
DESCRIBED IN DETAIL. 



rflMMn,^ nARJ nPTTUNS 



NOTEt IN THE DESCRIPTION OF eACH OPTION* IT IS ASSUMED THAT A 
STAMnARP MEMORY DUMP ANiAl viTS Is nBTATNED *FXCEPT* FOR THE 



DIFFERENCES 
ANALYSIS IS 



GENERATED BY THAT 
ONE OBTAINED WITH 



PARTICULAR OPTION. 
imO COMMON VALUECI. 



"STANDARD" 
COMMON=0). 



CGMMONaO. 
YIELDS 



A STANDARD ANALYSIS. AN MCP/PRT FILfc IS REQUIRED. 



COMMONsl. 

YIELDS 
RfUlJiREni 



A "SPLASH'SUNANALYZLD DUMP CF MEMORY* NO MCP/PRT IS 
A "rriMMF\|Ti KM Tf RFn h HFI m THF fJliMt^ TAP E H flS ChFATPO 



IS ALSO PRINTED. 

<:nMMQN«a* 



DUMPS ALL AVAILABLE AREAS. 



cnMMnNg4, 



EXCLUDES ALL NORMAL STATE OBJECT CODE. 
THIS INCLUDES ALL PRD8RAM SEGMENTS AiSOCUTtD WITH A 
MTX TM"FV ANn A|l TNTRTNSTr. SFGMtNTSi 



COMMONsS. 

p-yn tinFS 



Ai L Mrp nR.iFr.T canE. 



COMMONS 16, 



rrRTATN AaaAV.'; SF.lEr.TFD BY THE tiSER TO RE DLMPED. 



SEE THE COMMENT AT SEQUENCE i»00a074fa0 FOR DETAILS, 



C0MMnN»32 



INHIBITS THE DUMP 
ALPHABETICALLY AND BY 



OF THE MCP PRT 
PRT LOCATION. 



IDENTIFIERS SORTeo 



CQMM0NS64. 
YIELDS 



AN OCTAL-CNLY DUMP OF ME<"1URY FORMATTED SIX WORDS/LINE. 



C0MM0N»128. 

YIELDS AN 
nONTATNS FOUR 



AlPHA/OCTAL DUMP OF MEMORY. 
WQHnS OF 0<*TAL FOLLONEfl^aN 



EACH PRINTED LINE 
THF SAME L INF, BY 



THEIR ALPHA EQUIVALENT, 



CnMM0N = ?56'. 



ME- 



LAST PATCHED 12/ll//'3 
YIELDS AN ALPt^A DUMP OF MEMORY FORMATTED TWELVE WORDS 
ALPHA PFty PRINTED LINF. ___^ ..-^ 
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nnOQ04RQ 
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noQOQsao 
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00000580 
00000590 
000 U 0600 - 



00000610 
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- 000 00 625 
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00000640 

OOP 1.10 ft "iO 



00000660 
00000665 
00000670 



00000680 
000U0765 
00000770 



00000780 
00000790 

noQooanfl 



00000815 
00000820 
00000830 



00000845 
00000850 
Q0000860 



00000870 

00000875 

■OnOOOHflO 



00000890 
00000900 



00000910 
00000920 
00000945 



000009S0 
00000960 
00000970 



00000980 

00000985 
nnoooogo 
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nnQntoin 
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C0MM0Na384. 
COMP L ETE L Y 



THIS DOES NOT IMPLY THAT 
OF MEMORY LINKS IS MADE* 
ST An KS A RF t n r A T F n . f T c , 



I NHUUTS TH E, PRfNTflUI f.l F THE CUiUEM S OF M E M U RY 



MEMORY IS NUT ANALY2€D> VERIFICATION 
THE BED AND SlATE ARE CHECKED* 



00001015 
00UU1020 



OOOOlOflO 
00001050 

noQ()to<so 



COMMONsSlZ 



CAUSES THE CONTENTS OF 
LAST VALID WORD POINTED TO 
nNLY WHEN AN MCP P ATCH* THE 



00001070 
00001072 
OOOU1073 



MCP. 



THE "ABGH" ARRAY TO BE PRINTED UP TO THE 0000l07« 
BY "YECH". THIS INFQHMATION IS PRESENT 00001075 
"RHTn" PATfH, HAS RgrN r.nMPTj rn tmth thf nnon<n7is 



PRT Cn.LS WHICH FxLHC UF CJNTROl f-UNCTUINft 



OOOU1077 
00001078 
OQ001O80 



NOTE: PRT 
USF IN AN 



LOCATIONS SPECIFIED 
"IN" MESSASE. — _^^ 



REFE8 TO OCTAL PRT LOCATIONS FOR 



00001085 
00001090 
00001100 



PRT 



25. 
THI S 



-C£JJ — r s N O HiyA L LY S ET FR O M THE HIi.hT-MU S T i IHGT , T 5 WHIC H 



APPEAR ON A COMMON card; HOWEVER* ThLY MaY bL EXPLICITLY SET 
ANO/OR MODIFIED DuRiNG EXECUTION OF THE ANALYZER VIA THE ♦•IN" 

ME.SSAGE . ^ — — ^ 



OOOUlllO 
00001120 

onouino 



00001 HO 
00001150 
0000 U 6 



PRT 



26, 

THIS 



CEL L CAN BE I hi^ T g L 'NAH l F A OLMP' d. Y -M f X - f nQE X , IF SPT 



TO A NON-ZERO DECIMAL NUMBER EQUAL TO THE MIX InOEx OF A JOB IN 
THE MIX AT THE TIME THE DUMP IS TAKEN* IT WILL CAUSE MEMORY AREAS 
BELnNfiiNG TH OTHER MlV IhinFltFS TO B£ F iCHinFn FROM THP ANAI Y<;I S. 



00001165 
0000117C 

Q oOQ Uao 



NOTE THAT IF THE CONTENTS OF THIS CLLL DOlS NOT CQRREbPaND TO 
VALID MIX INDEX* *N0* NORMAL STATE STACKo WILL Bt OuMPED NOR 
WILL ANY NORMAL STATF AHFaS ASSUCTATLn MTH ANY HlX TNHt-X RF 



00001190 
00001200 

noOQlgio 



PRINTED, 
PRT 77. 



0CU01220 
00001230 
Q0001P40 



THIS CELL MAY BE l.StD ONLY ii\i CuNJuNCTlON W^H THE 
PREVTOUSlY DESCRIBED COMMON CANQ CONVEnUDn QF 5PECIFYInG AN 
OCT Al STACK ADDRES.S AS 1HF FIRST S UlGITS IIF THE CDwkniv VAiLiF. 
IF MADE NON-ZERO* THEK THE DECIMAL VAlUE ENTERED iN CEiL 27 
WILL DETERMINE jHE AMOUNT OF STACK DUMPED BELOW THE TOP"»OF«STACK 
VAUUr* IF LEFT Zero* THE DEFAULT AMOUNT OF ST ACK DUMPPOf AND 



00001250 

00001255 
Q Q0Q 1P6 Q 



000U1270 
00001280 

00001290 



ANALYZED) WiLL BE 200(ULC 1 MAL ) rtURUSi 



00001300 

00001310 
00001320 



THIS CELL* IF SET 
TO BE DOUBLE-SPACED. 



TO 1* Will 

OTHERWISE* 



CAUSE THE PRINTOUT OF MEMORY 
THL PRINTOUT IS Si NGLE-SPACED. 



00001330 
00001335 
00001340 



PRECEDENCE OF UPTIunS AND SUgGESTIgnS FUH COI^BINInG THEM 
AS STATED EARl IER> CUkMriN UPTinNb m/aY bk USLU SEPaRaTE l. Y 



0000 I 3S0 
00001360 
0Q00137O 



OR IN COMBINATION. AlTHQuGH MOST CUMBINATIONS ARE ALLOWED* THERE 
ARE IMPORTANT EXCEPTIONS. THE RULES ARE* 
Jl4 A COMMON VALUE OF 1 PRECLUDES THE USE OF ALL OTHERS. 



00001380 
00001390 

ooooiaoo 



2. A COMMON VALUE OF 512 PRECLUDES 
3. A COMMON VALUE OF 384 PRECLUDES 
COMMON VALUES FXCFPT FOR 16 ANO ^y. 



The USE OF ALL 
THE USE OF ALL 
NOTE THAT 384 



OTHERS BUT 
REMAINING 
tS THE 



oooouio 

00QOU20 

ooooiaao 



SUM OF 128+256, 

4. ..COMMON VALUES 2#4*8#16* AND 32 AR£ 

AC0.it I VE IN ALL POSSIBLE COMBI.NAT IO<S». 



00001435 
00001440 
00001450 



TOTALLY INDEPENDENT AND 



00001460 
00001530 
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OCOOlbSO 
SOME SPECIFir tXAMPLt'S UF COMMON OKTIQNb 0000lb60 

00 00 1 5 6i; 



A, "C0MMUN*3572U32'\ OOOO1570 

THIS CAUSES A "STACK" AT 35721 TU 8t DUMPtD ALONG WiTh 00001580 

niHFR STACKS} NinNiF flF MFMflRV TS PR T M T pn f ^Bf> W T>fc faTP PRT 00001^00 

iDtNTIFIERS ARE NQT PRINTE0C32)* ANU SELECTtU ARHaYS ARL OOOClbOO 

DUMP£D(16), THIS COMHINATIQN MIGHT tif. USLD TD PHLVIDE A 00001610 

MIN I MUM nF nUTPUl * FT £ R A MFMf j RY I i I IMP HAS H ^ FU li Nf . F ANA i y/E I ) HU T Oonn ifc20 

AFTERWARDS FOUND TQ HAVE nlSStO A STACKCIN THIS CaSe» 00001630 

tOCAtED NEA« ADDRESS 35721). 00001640 

-B^ **CQMM0N'^12'^ . _ nnnfH650 

THIS ELIMINATES ALL OBJECT CODE fROM TriL PRINTUcT OF 000ul660 

MEMORY, 00UC167U 

J:^ — "C0MMQN = 66" , noo^ii ft90 

THIS ENSURES THAT AVAILABLE AHLAS A«E ALWAYS PRiNTLD(2) 00001700 

AND PROVIOIS THAT MEMORY IS PRINTED In OCTAL FORMAT 0NLYC6tt). 00001710 

JU — '^COMMnNaa**. : ^ . nnnni73o 

THIS TOGETHER WITH PRT 2r> SET TU A VALID Mix INDEX REDUCES 00001740 

THE AMOUNT OF OUTPUT CBTAjNtU UU^ING A MU-UNLY UuMP, IMQ 00001750 

MOP COD E IS PRINTED LE A VlNti ON L Y NGiM'MCP CU ^J p ftRLAa BES I DES . OOQOI 7<sn 

THOSE RELATING TO THE Mix iNDEx BEING DUMPED, FINALLY* TWE ONLY NORmAlOOOOI 770 
STATE STACK DUMPED IS THE ONE BELONGING TO THE PARTICULAR MlX 00001790 

INDEX , __^ , [ _ 00001800 

00001900 
PROCESSING MULTIFILE OuMP TAPES 0OOu3OC0 

QCQt.:t005 



THE ANALYZER WILL AUTOMATICALLY PRQCLSS* IN A GIVEN RUN» ALL FILES 00003olO 

ON A "DPMT" Tape IP label equation is made to any file BEYOND THE 00003020 

"I FIRST nNEt THF QRDFR OF ANAl YSlS IS QPPn.STTF THaT of CRfATlDM. FOR 000U3O3O a^. 

EXAMPLE' IF LASEl- E'SUATION IS MADE TU J^n^ FuURTh FIuE' "FILE MqUMPs 00003040 H 

MEMORY/DUMP004", THE FOURTH FILE IS FIRST ANALY^tQ, THE THIRD NExT* 00003050 1 

THE SECOND AFTER THAT ONE AND ThE FjKST FtlF I AST . AS PRUC^ESSTNG OF A QOUOaOftn 



NEW FILE IS BEGUN> A MESSAGE IS WRITTEN TQ THE CUnSOLE SO THAT THE RUN 00003070 
MAY BE DISCONTINUED IF NO FURTHER! FILES ARE TO BE ANALYZED, 00003080 

00003Q9U 



^ A COMMON VALUE MAY BE INCLUliEU IN Iht COMMENT PORTION OF THE C0003100 

REMARKS ENTERED AFTER A "OPMT" CUMMANp UH AFTER ^EYiNG IN THE UNIT 0C0U3110 
IxHEN using THE MEMORY DUMP DECK. THE SYNTAX 13; "CQMMOi^g"<COMMQN VALUE >00003 120 
♦WHERE "COMMON" MAY RE ABBREVIATED AS "COM" AND MUST BEGIN NO LATER 00003130 
THAN THE 140"TH CHARACTER OF THE MESSAGE. A COMMON VALUE ENTERED 00003140 
IN THIS MANNER QVFRRlrFS ANY WHICH MAY BE SUPPLIED BY LABEL EaUATlON, 00003150 
ONE EXAMPLE is: "DPmT CUHMUNs36; ALL JOBS APPEAR ASlEEP," 00003160 

00003170 

BE>JilN . 0Qgp3ft0q 

BOOLEAN common; 0D00390O 

** iNlEGeR PRT26; DEFINE 0NEMlXsPHT26J;a! FOR DUmPINS ONLY ONE JOB 00004000 

iNTFfiFR PRT27 I nEFINF MYSTArKSr/EaPRT37tl 1 IF <(3. JMT HFI nw MV^TACKAnH nnnnft]no 
BOOLEAN PRT30; DEFINE DUUbuESPmCLsPh F 30* ; % OUL-SPaCE DUMP OF MEMORY 00004200 
BOOLEAN PRT3i;X RFE 00004300 

BQULFAN PRT32;X USFD FDR pFHUGGTNG THF ANA^YZpR OflOOaaQd 

^ INTEGER MYSTACKADR;x IF COMMON GTR MAxCOMMONVALUE* IT PNTS TO A STACK 00004500 

DEFINE OUMPAVAlL«CDMM0N.t46U]#; % CtJMM0Nai2 DUMPS AVAILABLE AREAS 00005000 
D EFINE NQNDaMALCQDE»CnMMQN.C45tiI»;ai cn'MMnNa4 DLNT DUMP TVPf 1,7.13 CODE00006QOQ 



j DEFINE NDMCPCODEsC0MMCN.C44M]#;* 8«D0NT DUMP WqP CODE ( T YPE= 1*M JX^O ) 00007000 

DEFINE DUMPTABLES»CaMMQN.[43« IJrfU l6aDUMP SELECTED ARRAYS 00008000 

DEFI NE nONTDiiMPRT = r(iwMnN.r4 ^; t-iiJ:4CUMMfj\=;vi ? STCPs HP LiF PRT nnQOQnnn 

DEFINE DUMP0CTAL0NLY«C0MM0N.C4nn)<-»* 64'5UNC0ND IT IOnAL OCTAL ONLY DUMP 00010000 

^ DEFINE DUMPALPHA0CTALaC0MM0N.C4U»n«i« 128»DUMP MEMORY IN ALPHA/OCTAL OOOUOOO 

nKf . TNr nuMPAi PHflONi YarnMMfiN.f ■^Qmtiai ?%6annMP MFMfipv j N ^{ PHu DNt Y nooignnn 
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Define nodumpsHealccommon: .c39:2Js3*;% 3a/4=oMiT uump of (memory ouoiiisoo 

DEFINE DUMPCESSP00L0M.YsCDMMnN.C38:iJ#;% Jl^sDUH^- ONLY THE "AKGH" ARrtAY 00013000 

RFFTME MAxnOMMOMVAl [i FslQ- f iHHh __„™_™..^ nriQiftnnn 

fll-E 'IH DISK DISK SERIAL "MCP" "PHT"C2»30); 

FILE IN MDUMP 2(2»533)i % 01SK»533* TAP€=513 

FILE jspo It f 1 .1 a) ; _______________^_^_„ 



FILE P 4(3*15); 

Pf?UCEDURE PRINTCOMMONVALUE^; 

B£(ilN 



00016500 
00016510 
00t)tftiJ20 



INTEGER l; 

SWITCH FORMAT C0MrNF0:=5 

fV//** THF rnMMnN \/Ai ur^ awajiawij. 



00016530 
00017000 
01 7010 



ArtE:^'/>» 



("CQMMGNsO YIELDS A STANDARD MEmURY DUMP AND ANAuYSlS,")* 
("COMM0N=l YIELDS A SPLASH DUMP WiTm NO AN Au Y S IS . " ) ♦ 
f"rnMMflN»? PRVMTS AVflliAHL'^ Awr:iS,i»). 



00017020 
00017030 
00017040 



00017050 
00017060 
00017070 



PRIMTFD.^) 



("COMMONS^ OMITS NQHMal STATE CODE SEGMENTS,")* 

("COMMOt)J«S OMITS MCP CODE SECmEnTS . ")» 

('* CnMMnNs1<S CAHSFS CFRTATM USFR DFFlNEn ARfiAY5; TH Rj: 

("C0MMDN*32 omits THE PRINTING QF ThE SORTED MCP PRT IOEmT IK lEHS , " )* OOO 1 7120 

t"C0MMaN=6a CAUSES MEMORY TO BE PRINTED ENTIRELY IN OCTAL.")* 00017130 

C"r0MM0N=l2fl r.AUSFS MFMQ RY to R h PH T NTrn rNTIR^'lY TN Al Ph ^/DrT a^ , " ^, nOO 1 7 1 ^Q 



00017060 
00017100 

00017110 



(-C0MM0NS256 CAUSES MEMORY TO 8£ PRINTED E;nTIH£lY IN ALPHA."), 00017150 
("C0MM0Na384 CAUSES NONt OF THE CONTENTS OF' MEMORY TO BE PRINTED." J'O00l7l60 
f*CnMMQN»5 1g DTSPlA YS TH E CO NTENT.S OF THF ARGH ARRAY.*'/), QQ017I7Q 

("FOR AODITIONAU INFORMATION* CONSULT THE FIRST SEVERAL "* 0OUl7i80 

"PAGES OF THE F I LE » ^ YMBOL/DuHPANL . " ) ; 0UUl7i90 

FOR T : sO STEP 1 UNTT l U DQ WR ITF (P * CQM l i MFO C I J ) I ^Qi'lT'dQC 



END PRINTCOMMONVALUES; 

BOOLEAN OONTPRlNTLlNKS*MYSTACKOuMPE0i 

FORMAT FTMTf a Of"#"1." TN i n nf pt inP Aiv.Aj¥7F 



r.AOfW^,M^yj, 



INTEGER PRTMAX*INTMAX*INFQMAX; 
DEFINE PRT8ASE»129#;*FIRST PRT CELL ALLOCATED BY ESPUL 
DEFINE ACTUALPRTBASEslli^it;^ FIRST PrtT CELL AS PER MCP DEFINE 
DEFINE PRTSMAX»100#; % UPPER LIMIT OF PHTS ARRAY 

REAL level*sublevel*version; 

INTFAfR KLASSn InrNTTFlFR rLASS*AS nrTrRMTNFn gY r.sPQi 



00017210 
00018000 

oooyaooQ 



00024000 
000^5000 
000^16000 



INTEGER NAMESIZE*NAMSSUE; 

DEF iNE NSNAMEcNSNAMEnaNAMEC'^SNAMEiJ.cH: 10]^; 

iMEfiFR INAMFSIZF.Ti^amS5I2F; 



0002700Q 
00028000 
nnO^qnnn 



DEFINE ISNAMEClSNAMEl]»lNAMECl5NAMElJ,C8liaj#; 
ARHAY SEGZER0C0I29]* 

BOOLEAN MCPJIi FILL/PRT DETERMINED wHATMO Owi E g WERE INCLUDED 

STREAM PROCEDURE MOVE(S*0*^); VALUE '^ i 



00030000 
OOUJlOOO 
00032000 



00033000 
00034000 
QQ035QQQ 



BEbiN SI : = S; 01 J =0; CS! = 
PROCFnURE HUSTrOMMnN; 



W t\QS ; ENu MOVE; 



BEGIN 

" REAL MY*Dj 
ARRAY TCQtmJ 



00036000 
00037000 
00U40100 



FORMAT F("X"*I5*"*"*X1)* 

REAL ST«EAM PROCEDURE QC T Dt C ( O > V ALU£ t; 
RFGIN sUi nr a nT^-i nn [icTUEr; cs^-pn^r 



OOOttOllO 
00040120 
0Q04013Q 



tND? 



BOOLEAN STREAM PROCEDURE N0T50CT AQEi ( C ) ; VAlUE C* 

BEGIN Sl'-LOC C* 5CIF SC GTH "7« THEN BEGIN TALLY*-li 
ENQ FLSE Sl»ST41li MHT'inr.T ADfS»-T Al.l Y FivUl 



00040140 
00U40150 
00040160 



JUMP OUT 



STREAM PROCEDURE CECQC T( 0* Ul *02 ); VALUE O; 

BEGIN SI«-LUC D> D I«-a 1 > lJS«-5LCT * aI«-Q«: j DS«-30CT 



00040170 

00040180 
0Q04Q19Q 



END. 



IF NOT 50 CTADES(0«-OCTdEC( COMMON ))ThEN 

DECOCT(D*MY*COMMCK); 

TF MY»Q TMFNi MY ST Ar K AnR>« ^ Ej S£ 



D.C1»29J*.0* 



00O4O200 
00040210 
00040^30 



00040230 
00040240 
O Q04Q ?' S 



:;j 



i:.B 



111 

1 45 

-n ' 

411 
49 

50 
61 
53 

■ia 

04 



N 

2 
3 
4 
5 



9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

2S 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 



45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
95 
56 

5Z_ 



BEGIN % CONVERT 

WRITECTC*]/ 
R FA I} (T r* If / 



FIRbT 5 DIBITS ui" ClM Ab IE ThEt WERE OCTAL DIGITS 00040260 
F,MY); 000a0270 

>I^Y;>TAC . KAnh ) > _- QOU^Q^flO 



EN0J 

END bustcommon; 

PROrrniiRr rf An arr a v f kPRDS j zr , &n amf > base ) ; 



000^0290 
000^40300 

n 041 OOP 



VAUUE WURDSIZE/BASE; 
integer WQRDSIZE'BAS 
ARHAY ANAMEf*]; 



e; 



00042000 
00043000 

ooQaaooo 



BEfilN 

INTEGeR 



1j.SEGS*N- 



ARRAY BUFC0:2q]; 



00045000 
00046000 
00 04 ^000 



Nl»WORDSlZE ^OD 
SEGS: = (VyORDSlZE + 
■SEriStgSEGS"! J 



3C> 

£5) DIV 30/ 



00048000 
00049000 
OOQ'aOOnO 



FOR 11*0 STEP 1 tMiL SEGS DU 
REQIN 

READfnTSK,3G.RbFr*n; 



OOUblOOO 
00052000 
00053000 



MDVE(BUF*ANAt^EtBASE. + 30xnMF I /SEGS Uh In = G THEN 30 ELSE N); 

end; 

IF PRT^;^ TH E N R f,GlN ^^R I TE (P [P AQt; J) / fiR iT F. CP r.U»l ^^i^HASF'^y 



00054000 
00055000 

■ oou'ifion; 



)ono 



I5#" Sl2Ea«*I5>* 

BASE+WORDSIZE -1 
WRTTrfP»1,RnFf *T 



BASt»W0R0Sl2E); Fqr UsBASE i>TEP 1 UNTIL 

DO BEGIN MOVECANAMEC n#BUFL03^1)i 
) EN D ENDf - 



00057000 

00058000 

■ QOQ59000 



ENU OF readarray; 

BUi5TC0MM0N; 

COMMrhTiTO GET HP Tl ON .S, U SF " ( M I A ) I N25 " AKD/Oh COMMON CamRPL CARD; 



OOOoOOOO 
OOOolOOO 

on';o3non 



IF COMMON THEN NAMES IZE « ^N AMSS I2£:» JNaMES iZe «» IN AMSS UE »*1 ELSE 

BEGIN 

RCAnARRAYt30^SFfiZFROr*3*n^; . 



00064000 

00065000 
00066000 



CLUSECDISK); 
LEVEL?s"2"; % 1 DIGIT 
SUaLEVEL?»"(U)"; a. g fJIGlTS 



00067000 
00068000 

nuooflion 



V£HSI0N»»''B"; X 
COMMENT EACH TIME AN 
MCPi.Rnni FANf 5iFnZFBfi 



AlY^ER IS CHANGIU iNCREKtNT ALPHABETICALLY; 
ri]);>. COMPTLF-TIMF OPTIONS 



00068200 
00068300 
00069000 



NAMESI2EScSEGZER0t2J 
NAMSSIZEJsSEGZEROrS] 
TNAME.STZF<'=bFnZERCir4 



+ i;* U CV <^Lf^- PM CLLuSCABCVL e200) 

',% u []F WQfdjb Tul Mi:P IiLNTUlERS OCCUPY 

^^^l i% P Q F TNTHliMSTf.S ^ 



OOOi'OUOO 
000^1000 
00O/2O0Q 



% % % % 
BEGIN 



%%%%%%%%% INNER BLOCK BEGINS %%%%%%%%%%%%% 



L A BE L E GPR OG ? 



00079000 

oooaoooo 

-00060400 



LABEL 
INTEG 
R EAL 



RESTARTtXX. 
£R i; 



00080500 

OUOBIOOO 

-00082000 



REAL AUXTYPe; 
BOOLEAN SGLTOg; 
RPOLEAN NnOU MPTO I 



00062050 
00082100 
0OOfl2MQ 



BOOLEAN NOMO#MULTI» 
ARRAY PRTNAMECOMi; 
ARRAY TPNAMFC0^23f 



HEPEATING*REfeOAD; 

% 



00082150 
00082200 
Q OOfl g^SO 



DEFINE 



TDMFIOsTP 
TDFID'TPN 
FlLFTYPFiT 



NAM 
AME 



E[0]<f* 



00082300 
00082310 
00d 233Q 



ARRAY PRTSCOIPRTSMA 
ARRAY INFOCSHNFOmA 
ARRAY NAMeCPRTBASEl 



X]; 
X + lJi 
PRT8A3E»NAMEjIZE "13; 



00083000 
00084000 
0^8 5000 



i-r\ 



INAMSSlZEt*SE6ZERU[53;X # OF WORDS THE INTRINSIC IDENTIFIERS OCCUPY 00073000 
END SEGZEROSTUFF; 00074000 
INFOMAX»*flxPRTSMAX + '^; ^ - - — ■ 00078000 



rf 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

IS 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

26 

29 

30 

31 
i 32 

33 

34 

35 

36 

37' 
I 38 

39 

40 

I ♦! 
42 
43 ~ 



45 

46 

I «7 



49 

I SO 

51 

52 

I S3 

54 

55 

I S6 



ARR 
ARR 
ARR 



AY NAMSCOJNAMSS 
AY INAME[0:iNAM 
AY TNAMSCJM 



MAU 



UF.-ni 
EiJlZt.-!]; 



0U0ti6000 
OOOdT'OOO 



ARRAY XNAMECACTUALPRTBASeJ20n^ 

ARRAY XNAMStOMB]; 

nFFINE XSNAMECXSNAMEl]8XNAM£[XS(SAMEll.tftM0Jtf; 



oooa9ooo 

OOP 90000 

00U91Q0Q 



INTE(?ER MIXMAX;%MIXMAX OBTAINED iN "Gt THRTE^THI tS" 

REAL 'VJOBNUM^VRLC; 

D EFIN E ST AXMAX^eQ^;^ 



00092000 
0UUV3000 



ARRAY STAXlOISTAAf^AX- 

CCMMENTITHf: DCFINFS F?r!_ni 
DFrTWg BRFAKflUT 



j; INTEGER HAXStK^BEOoTK; 

MUST CORRESPOND TO THOSE IN FILL/PPT; 
MrP.ra7»i3t, : r ^ 



00095000 
000960O0 
00097Q QO 



CHLCKllNiS 
DATACOM 
nCLOG 



OCSPO 
DEBUGGING 
fiFX 



a (jlCP. CA^f I Jtf t 



OuovoOCO 
00099000 

Goionocn 



MCPttA3i i J## 
MCP.t«2U3** 

MCP.f.^! n J*t 



00101000 

00102000 



OISKLOG 

DUMPP 

I NQUIRY 



s MCP.UOJlJO* 
s MCP.[39UJ«* 



00104000 
OOlObOOO 
001U6000 



SAVERESUtTS 

SHAREDISK 

STATI S TICS 



* MCP4C37'13#> 

s MCP.t36:ii#» 
t MCP f [ 3 5»l3 ^ 



00107000 
00108000 
00 1 0900 



AUXMEMM 

KJE 

H6500LO A O 



SEPTICTANK 

PACKETS 

MGNITORR 



mCP.C 3*4! 1J)»* 
MCP.t33: 11M» 
MCP.L32J 1 Jtf» 



OOilOOOO 
OOUOlOO 
001 10200 



ARR 

-OEX 



AY 



MAXOPT 
MEMQRY[0!63#0J 
TYPMAX = 6^gi3i 



s MCP.CI1M3#» 
a MCP.t30MJ#* 
s MC P. CI 911 lit 



OOUO3OO 
00110400 

OQilOSOO 



51 



i9#; 
n; 



» UPUaTL as OPTIuNS AHE ADDED 



OOUIOOO 
00112000 
00113000 



OEF 



INE MaMEMORY## 
FF»[ 18I153#.X 



% 



00114000 
00115000 
00116000 



CrF»[18»33!l5]#*« 
CTC=[33I33I 15]#** 



O0U7O00 

00 11 7 100 
ooiiaooo 



HEF 



COL»t39S93i» 

INE OEFInEDmIxm 
INF SLAT 



; % 

AXs9 



■ ATE 



iKUMlxMAX NOW OeTAlNEO 



Fm prt mothek 



00119000 
00120000 
nnigmnn 



NSLATE 
LSLATE 
E SPB IT 



KHTSC01]#» 
PRTSCu23«. 
P^^TS(.Oi]<». 



00122000 
0C1230CO 
Q0124000 



AVAIL 
MSTART 
MFNO 



PRT S I 
PRTSC 
PWT&f 



04j»> 
03 3#* 
Og>1#f 



00125000 
00126000 
00127000 



TOGLE 
BED 



PHTSt 
PKISC 
PRTSC 



U73*, 
Ob]ff/ 

I2]j»f 



00128000 
00129000 
Q013000 Q 



JAR 

INTRNSC 
SHFET 



PRTSl 
PRTSC 
P RTS C 



I33#f 
143«# 



00131000 
00132000 
OQ133QO0 



JOBNUM 

PRYOP 

NFO 



PRTSC 
PRISC 
PRTSC 



16]*/ 



00134000 
OC135000 
00136000 



ISTACK 

PROCTIME 

lOTIWE 



PRTSC 
PRTSt 
PRTSC 



19,3 ## 
20]«# 
2l3f> 



00137000 
00138000 
00139000 



4Sj 

4(1 
4<l 
':iO 
51 
52 
51 
SI 



tHANNEL. 
F INALQUE 
inCATQUF 



5 PHI St^^]»» 



I 2 
3 

4 

I 5 
6 
7 

9 
10 

I '1 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 ~ 
32 
33 
34 
35 
36 

37 ~ 
38 
39 
40 
41 
42 



46 
47 



49 
SO 



52 

S3 



S5 

56 



lOQUEAVAlL 

10 QUE 

UNIT 



« HftTSC25]#» 
s PRTSCtf6]«, 



IIMU 

WAITGUE 

NEXTWA I T 



= PHTSCi;S)J<»^ 
5 PHTSC, ia3»ji, 



FIRSTWAIT 

LABELTABLE 

WULTITABLE 



s PHTSt3n#* 

» PRTSC32J#* 
a PHTSL3ai»> 



WDCTaBLE 

PPTION 

MFSSAfiEHClUCEH 



5 PM1S[J4]«, 
= PKT!)Ld!3]Jif* 
? PHT^f .i6 3<r,, 



PRNTABLE 
INITIALUE 
PIMn 



s PRTStie]*, 



P2MIX 

NOTHINGTOCC 

STACKnVEHFLQI^ 



= PKTSC40]», 
= PKTSC*(1]#» 

= PHT.S[<t«^]tf,> 



RETURN = PR1St43]#, 

CJIRECTORYBUII-DER * PRTS[4a3#, 
BCQPTSTACK s PRTSC ^t Sjtf* 



5AVERESULT 

AUXDATA 

AIJXCOnE 



= PRTaL^oJ* 
= PwTbL'i/]* 
? PHl^mQU 



EUIO 

PEOIO 

AV t ABl.. F 



s PRTS1493* 
= PRTS[50]» 
iS PRTSfSlU 



REPLY 

transacticn 

QALOC 



= PRTStb2]» 
= PHTo[bJJ# 



MEMASK 
CTABUe 



= PRTS(;5>53« 
s PRTS(563# 



DBARRAY 

ATTACHED 

STAT ION 



= PRTbLiB]*' 
= p K 1 S 1 53 y ] /; 

= PHT9 l6QJ-> 



DCQARA 

USERSTA 

TU STA BYMI X 



s PRTS£613# 
s PRTSE625)ir 
* PiTSt<>l 3» 



QTIMES 

EUQ 

CIDROU 



= PRTSL643* 
= P«Tb[653# 

= PWTS ift61 ff 



argh 

YECH 
PIHECTQRYFRFE 



s PHTSt673* 
« PHTSl.t>83# 
g P»TS[69];f 



SYSNO = PRTSlz-O]* 

stationmessagehqlder 

^ = PRTSL7i 3< 



LOOKQ 
PINGQ 
DC 1.90 



s PRTS[723» 
« PHTSt733# 
« PUT Hi? Hi It 



ILL 

RJEWAITQ 

N OPRQCFSSTCfi 



s paTSL753» 
= PRTS1763* 
s PRTSLr7Hy 



MIXMASK 

iNrOMASKl 

INFOMASK? 



PRTSL?83# 
PRT5l79J» 
P3T S L 3Q 3 ff 



OOi.40000 
OOUIOOO 

otn,M2rio(i 



00143000 
00144000 
00145000 



OC146000 
00147000 
Q OU B OOO 



00149000 
00150000 
O Ql blOO O 



001b2000 
OOibiOOO 

ocnaoou 



OOibSOOO 
001b6000 
00157000 



OOlbSOOO 
00139000 

O Cl U i OQQ Q 



OOlolOOO 
00162000 
0U 1 63000 



00104100 
0U1O4110 
lft4: 



jOu- 



4-2X1- 



00164130 
00164140 

1 1 6 4 : 



jHx: 



1 50 



00104160 
00164170 
001O.U16Q 



00164190 
00164200 

nni64Pio 



0C1O4220 
00164230 
Q0U4P4Q 



00164250 
00164260 
QQ164?7Q 



00164275 
0016428U 
00164265 



00164290 
00164293 
0164300 



00164305 
00164310 
QQt 64 3U 



00164315 
00164320 
00164 325 



00164330 
00164335 
001 643 4Q 



0016434S 
00164350 
00 164 35 S 



u 

4'.' 

H 

s. 

LI 



|r.vJ 



001O436G 
00164365 
0010^370. 



0016^380 
00164390 



00104410 
00164420 
Q01Cift 4 3 Q 



0016 4440 
00164999 
00 16 5000 



00166000 
OOlo/OOO 

oo iti aooo 



00169000 
OOl/OQOO 
OOUIOOO 



00172000 
001/3000 
n0l74l.lQQ 



00175000 
00176000 
01 77( 



Jl 



'OOP 



00178000 
00179000 

ooiaoQoo 



ooiaiooo 

00182000 

nni»,iflon 



00164000 
OOld^aOOO 
OUldC?QOO 



00187000 
00168000 
nfUB9000 



OOIVOOOG 

ooiviooo 

0Q 19 2QQQ 



00193000 
00194000 
QQ 195 0QG 



001S»6000 
00197000 
00198000 



QQ I 9^000 
00200000 



00«i02000 
002U3000 
00204000 



00205000 
00206000 
QQZ Q70 QQ 



00208000 
00209000 
00210000 



00211000 

00212000 
<} 2 1 2 1QQ 






-;'^ 



n 

2 
3 
4 
5 
6 
V 
8 
9 
10 
11 
12 
13 
14 
16 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
26 
29 
30 
31 
32 
33 



CCMASKl 
CCMASK2 
CURE. 



= PMTScOl J** 
= P R 7 b t b 2 J « ' 
= PRlSiaj.lfl/ 



OISKOUNT 
PUNTER 



s PHTSt843** 
s pRTSt85 3iii* 



lQUE 
LQAVAIL 
TAR 



= PI«iT3L87]fl* 
s FHn.S(.n9,],g| 



lOQUESLOTS 
DUMMY 

PROCEOitRCf lit info; 



s pRTSt903«* 

« UUMMY#;!li 



FILL INf Ot*] WITH * 
"SLATE •♦#0*0*26, 
"N iai ^ATE 'S 0* 0*a2 * 



••Li»LATE 
"ESPBIT 
♦♦AVAIL ^ 



"M ST ART 

"MEND 

"TUfi LE.. 



•'»0f0#22* 
"I'O/O* 10* 

*o * o»a3 » 



"*0*0*23* 
"*a*0*83* 
>n»0*22* 



"BED 

0*0^0*0* 
.,Of,P<0,>0» 



"*0*0*26* 



0*0*0,0* 
"PHT 
"JAR 



"*0*0*26* 
",■0*0*26* 



"INTRNSC "*0*0*26* 
"SHEET "*0*0*26* 
"JQRNUM "*0*n»2?i 



"PRY OR 

"NFO 

"PTACK 



"»0*0*26* 
"*0*0*26* 
"*Q*n/?6* 



"P«0CT1ME"*0*0*26* 
"lOTlME "*0*0»26* 
"CHAMNEL "tntO«26i 



* 00 
I 1 



% 02 
* 03 
% 04 



05 

6 

-Q-L. 



'* 08 

% 09 

JL_UL 



11 
12 



% 1 3 



% 14 
% 15 
I Ifi 



% 17 
* 18 

V IV 



*',20 



34 
I 35 
36 
37" 

\ M 
39 

to 

I «1 

«2 

»3" 
I M 

45 

46 
1 47 

«8 

49 
1 SO'. 

61 '■ 

B2 
I i3 

S4 

S5 
I 56 



"F1NALQUE"*0*0*26» 
"LOCATQUE"*0*0*26, 
"I0S|,IFAVA "*"TL 



Q>?2' 



"lueue 

"UNIT 
"TlNtJ 



"*0*0»26, 
"#0*0*26* 
w«Q*fl*36. 



"WAITQUE "'0*0*26* 
"NEXTWAIT"*0*0*22* 
"FiRSTWAI"*"T 



"*P'2 2' 



•*UABELTA8"*»L£ "*0#a6* 
"MUtTITA8"*"U£ "*0*26* 
♦*RDCTARLE"*0*n*g6. 



"OPTION "*0*0*22* 
"MESSAGEH"*"GLDER " 
"PR.^T,ABU£ "AQ^0f 26 ^ 



*o*22' 



"INITIALI"*"ZE 



'#0#10* 



"PIMIX 



iii!i.»;i'*it2,* 

"f Q/Qf ?2* 



"NQTHINGT"*"000 ",0*32» 
"STACKOVE"*"RFLOW "*0'32' 
"RETURN "^0^0^3 2* 



^_ 



«DlfteCT0ft"*"Y8liIL0ER",0M0* 
»OCa#TSTA"»"CK "*0*22* 

"SAvri?r>st,Pi**LT rtO/gft* 



% 23 
* 24 



% 26 



X 29 
% 30 

* 3i 



* 32 

r,33 



% 3b 
% 36 
% 37 , 



X 38 
% 39 

. 1 40 



X 41 

-t 42 
X 43 



% 44 
IS 43 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
IS 
IS 
17 
IS 



19 
20 
21 
22 
23 
24 
2S 
26 



"AUXDATA 
"AUXCODE 
"E U IO 



"#0*0*26* 
"*0*0*26* 
"«0#0*26* 



"PEUIO '♦*0*0*26* 
"AVTABLE ••*0»0»26, 
"REPLY "fntOt2ft« 



"TKANSACT"*"ION 
"DALOC "*0#0#26, 
"MF.MASK 'S0iQji26^ 



'S0'26» 



"CTabLE •S0*0*26i 
"FS »'»0*0*26* 
"PHaRBAY "»Q * 0*36* 



"ATTACHED">0*0*26* 
"STATION "*0*0*26* 
"nCfilARA "»n<0»26* 



"Ui>ERSTA "*0*0*26* 
"TUSTABYMw^^lx 
"QllMES "*0*n»2A« 



"*0#26' 



"EUQ 

"CIDROW 

" A K S H 



"#0*0*26* 
"*0*0*26* 



"YECH "*0*0*22* 
*'DlRECTOR"*"Yr«EE 
"SYSNO "»Q*0>2'^. 



'0*22. 



"STATIONM","ESSAGEHO","tQ£K 
"LUQKQ "*0*0»22* 



'22. 



♦•DC 190 "#0*0*22* 

"itU "#0*0*22* 
f^R>JEWATTQ".Q»n.3?. 



"NUPR0CES"*"5TnG "#0*22* 
"MiXMASK "#0#0#22# 
"INrnMAft(S">"l ",(),22f 



*INfOMASK''*"2 
"CCMASKl "*0#0#22# 
"CCMASK? "*Q#n#??. 



"#0#22# 



"CORE "#0*0*22* 
"OISKOUNT"*0*0#23# 
"EUW "#0#0#22# 



"PUNTER "#0#0*26# 

••L«UE "*0#0#26# 
"LQAVATI "*G#n.3?. 



"TAR "*0#0»26# 

"IOQUESLO"#"TS 

Oi* 



"*0*22# 






% 

-X. 



50 
51 



i 

i 



5j 



% 

% 



56 

^4- 



60 



% 

% 



62 

63 

MA. 



% 

-Jt- 



63 
66 



68 

69 

-ZXt 



71 
72 



% 

_1- 



74 
i6_ 



7 7 

78 



ao 
ai 

Ji2. 



^ 83 
* pa 
it Ob 
% 86 
« '37 



% 



a 9 
yo 



00212200 
00212300 



00212450 
00212500 
002 IP'S "iO 



00212600 
00212625 
00^ 126 50 



00212675 
00212700 



00212/^50 
00212773 
0Ui^ l2B 00 



00212825 
00212850 
n0i^ l 2875 



uo2i2aao 

00212885 
00 « ^1 2 h9Q 



00212895 
00212900 

-nn?n,,?905 



002l2yi0 
00212915 

on2i?^2n 



00212925 

00212930 
Qn2lPQ^S 



00212940 
00212945 



00212955 
00212960 
0Q21296«S 



00212970 

00212980 
002x2990 



00212992 

00212994 
QQ212996 



00212998 
00212999 



COMMENT************** **#******•***********#***** *»*****#** 00214000 

FOR EACH IDENTIFIER DEFINED IN THg ARRAY "FRlS"* THERE MUST BE 00215000 
A CnRRESPONniNff 4 WPR n FNT R Y TN "TNFQ", Tuf. FTRJ^t TwRFE wnRHR n n^,ftnf)n 

CONTAIN 00217000 
00218000 
On<i 19000 



ARE RESERVED FOR J^t laENHFlER lEXT. THE FUURTH MUST CONTAIN 
THE CLASS OF THE IDENTIFIER AS uLTERMlWEU BY THE ESPOL COMPILER. 
THT . S CLASS A PPF a R<^ IN THF FIRST FniiR rnjim.^s n p Tur STiiFr rAup 

rjlR THIS TnrMTTrTrO- l r tUC- n Atie tc im-r ui,ri..,k, » -.r-n- L. . V, «- 



00220000 



FOR THIS IDENTIFIER. IF THE CLASS IS NOT KNUWN* A 2ER0 MAY BE 

USED In the "INFO" LNTRY FOR IT. HQHEVER USING A CLASS OF ZERO WILL 00221000 

.. T .. MCREASE THF TTM F NEED E D TQ LOCATF THE PRT APORgSS OF AN 



IDENTIFIER. NOTE THAT ALTHOMGH ARRaY "PRTS" M/,Y CONTAIN GAPS 
"INFO" MUST CONTAIN A DUMMY ENTKY CGMPlUSEO OF ALL ^EROtSC SEE*FOR 
INSTANCFf . PRTSr91. PR T SriOl . ANG PRTimn, 



Qn222nnn 



P'OR CONVENIENCE. THE CLASS NUM8LKS THAT THE LSPOL COMPILER MAY 
ASSIGN AND WHICH MAY APPEAR ON A STlFF CARD ARE LISTED BELQKl 
<!*ROCID a ma. 



00223000 
00224000 
00^25000 



0022*000 
00227000 

nn2?Hooo 






1i:| 



34 



>r 



9 
10 
11 
12 
13 
M 
IS 
16 
17 
18 



19 
20 



21 
22 



24 
25 
I 26 
27 
28 
29 



30 
31 
32 
33 



34 
3S 



36 
37" 



38 



40 

I 41 

42 

43 



46 

I 47 

•8 



49 

1 50 

51 



52 



M 



55 

1 56 



STWPROCIO 

BOOSTRPROCIC 

REALSTRPRQCXt; 



INTSTRPt^OCIO 
800PROCID 
REALPROCin 






INTPRQCID 
BOO ID 
REAlin 






OQc'd900Q 
OOiiJOOOO 

nf:,;^,-ilooo 






002:i2000 
00iii3000 
00i?.U000 



I NT Id 
BOOARRAY10 

RrAt.ARRAYTn 



INTARRAYID 

NAMEID 

INTNAMEID 



= 25*, 



CU^ JiJOOO 
0G2J6000 






00"238u00 
00239000 



LA8ELID =32*, 
PROCmURE SETuPXNAMFAIvnxhiAMS; 



002i4l000 
00242000 
002*43000 



BEGIN 

STREAM 

RFfiTN 



PROCEDURE FlLLXNAMSCXI'lAMjJ; 



OlJsXNAMS; 
OS Is QLiT^NTt 
nS|g fll IT"NT2 



0SJ5 

DS:s 



8LIT-NT3 
8Ln"NTa 

8L IT"NT5 



DSJa 

DSts 
nsta 



9LIT*'NT6 
8LIT«NT7 
fli IT"nATr 



DS:= 8LIT"ClOCK 
OSJ= 8LIT"XCL0CK 
DSJg flirT"RFflnY 



DS»» 8mT»i-»-----«M 

DS1« 8ilT«KLUMP 
DSlg16LIT"FTHSTn^•rK 



OSJ= 8LlT"LA3TJECr<" 
DSJ= 8LlT"DIR0i>K " 
nSi= ftl.,TT"MtMnKY !1 



OSJ» 9LIT"RRRMECH 
END or FILLXNAMS; 
ARRAY trACTllAI PRTB A^F t ? Il 1 ; 



INTEGER I,j; 
FILL Tt*3 WITH 
12 3M/ Q Q^ 



* xnamet.s 



120»1»01, 
\.?7 »l»0^» 



125f If 04» 
124*1*05, 
12 6»1*06 < » 



128*1*07, 
112*1*68* 
1 13*1, 09<i 



11^*1*10* 
115*1*11* 
116*1*1?* 



117*2*13* 
1,18*1 #15, 



00244000 
00245000 
0Q246Q00 



0024/000 
00248000 
002^9000 



00250000 
00251000 



00253000 
00254000 
fJ0r-55QQQ 



00256000 
00257000 
Q02baQ0Q 



00259000 
00260000 

oQgQinno 



00262000 

0C263000 
00264QOQ 



00265000 
00266000 

(int^67onu 



00268000 
00269D00 
Q0270QQ0 



00271000 
00272000 



00274000 
00275000 
00276000 



002^^7000 

ooii'aooo 

002/9000 



00260000 
00281000 

nngfigooo 



00283000 
00284000 
nC)2H5000 



00266000 
00287000 
P0 2 880Q0 



h 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 



13 
14 
15 



16 
17 
18 



19 
20 



22 
23 
24 
25 
26 



28 
2S 



31 
32 



34 

35 



37 



39 



42 
43' 



46 
47 



49 
50 



52 

53 



56 
56 



121M' 18;^ 
FILLXNAMSf XNAMS) 



OOiidS>000 



Jt»ACTUALPRTBA5E-i; 

FOR I«»ACTUALPRTBAS£ STEP 3 

1i(NAMEC.Hiff..Un:afJ&T[ H [Bt Iflt : 



DC 



UNTIL 

-OJ- ^Tf i.tM[ i8 t33 :i fiUTn* g u : nt33ti5 3 ; 



211 

34J- 



00292000 
00293000 
n0294( 



inoo 



ENU SETTING UP XNAME ANDXN AMb. 

REAL linktype; 

ARHAY-ARFATYPEtaiTYP^tAXtU i 



002vbO00 
002SI5100 

29'^; 



-fiXi 



PROCEDURE' fillareatype; 

COMMENr***AI!!EATYPErLlNKTYPEJ# WHERE 
LINK TO HP PRiNTFn. CCMTAlNS A rODE 



LlJLO- 



LINKTYPE IS THE TYPE OF MEMORY 
WHICH flETERMlNES THF FORMAT FOR 



0O295120 
00295130 

00295140 



PRINTING THE AREA : 1:;0CTal» 2saLPH A/ ncT Al » 3=ALf^HA ONLY. 00295150 

DuMPMEMORYANDNOTESTACKS UETERMlNt-'j UnKTYPE from [3;6J CF A PKImAKY 0029bi6C 
LINK. PRINTCORE THEN OaTAliMb ARE AT r PF C L I I^K 1 Y PE 1 A\p PRINTS THE AREA 00295170 



IN THE APPR9PRIATF FORMAT. ELEMENTb THRU TYPMMX CORRESPOND TO 00295180 
POSSIBLE LINK TYPES, ELEMENT TYPmAX+J 15 USED TO CONTAIN TH£ DEFAULT 00295190 
FORMAT CODE USED IN PRINTING AN AREA WHIgH OOFS NOT BEGIN WiTH A HmK nfi29^2no 



OR CONTAINS A CLOBBERED LINK. THE CONTE'^TS OF AREATYpE ARE NUT 

ustu IF dumpoctalonly* ljumpalphqctal or uumpalphaonly are set or 

IF AN AVAILABLE ARFA IS HKlNG PRINTEU ^hUSF rURRLSPONfj T NG FORMAT 



00295210 
00295220 
QQ295?3fl. 



CODE IS 
BOTH IN" 
COPE OF 



NOT NEGATIVE. FOR EXAMPLE. A NEGATIVE CODE SUCH AS -2 CAUSES 

USE AND AVAILABLE AREAS TO BE FORMAfTED AS ALPHA/OcTAL, A 

♦ p wniiin rauSF omi y Tm^uSf aHfaS Tn rf pki^teo tki AtPHA/nrTA(^ 



00295240 
00295250 
Q02V5P6Q 



AVAILABLE AREAS* iF PHJNTEO* WUoLU UE PHINTEU IN OCTAL ONLY.****; 

FILL AREATYPEL*] wiTf- * I-OCTAl* 2sALPhA/0CT AL* ^sAlPHA 

^^^ UNKNQWNCfl) ^ . 



00295270 
00295280 
00295290 



i** coDE<n 

2r* DATAC2) 
2«* lOflurtl) 



00295300 
00295310 



1** ALGFI8(4) 
2** INQBUFC5) 
?f^ CnRFTBf'^) 



U% INTSEGC/) 
1»* HEADER(8) 
ita t9i - 



0U295330 
00295340 
00295350 



00295360 
00295370 



1»* (10) 
1/* (in 

?>» STACK(121 






002V5390 
00295400 
00295410 



(13) 
(H) 



00295420 
00295430 

00 2954 40 



if* 



(16) 

(17) 



i*X (19) 

2»X CIDROWCaO) 



00295450 
00295460 
QQ 2 9 54 7C 



00295480 

00295490 

-Q&2V550Q 



1 # * (22) 

U****DEFAULT IF UNABlE TO DETRMlNE LINK T YPE( T Y PMAX+1 ) 
nFFINE NEXTPAGFaKRTTFfPfPAGF])^; 



00295510 
00295520 
00296000 



FORMAT STARSC2G("****ii-*"))# 
STARZ(*(«*'')3; 

r.Q^MAT MC PHDRC "DCMr.P . XV.'' ^A l>'; ,' 



SWITCH FORMAT MCPDI»T»*( 



'.A2#" COMPILF-TIMF OPTIONS!"); 



00297000 
00298000 
0Q299Q QQ 



"BREAKOUT") 
#( "CHtCKLiNK") 
-xi " DAIACOM") 



00300000 
00301000 
00302000 



*i "DCLUG") 
>( "DCSHO") 
jj "nEHUfifilNfi'M 



00303000 
003040(30 
QO3O 5O Q 



|4b| 



h 



"UFX") 



00iU6000 
OOJU/000 
nOJUBOOQ. 



''INQUIRY") 
"SAVtRESULTS") 



00309000 
O031O00O 

nnannnn 



"STATISTICS") 

"AOAMEM") 
JUBJkU 



00312000 
00313000 
00 313100 



"B6SOOL0AD") 
"SEfTlCTANK") 



00313200 
00313300 



10 

n 

12 



13 



IS 
16 



"MOMTGH" J 
A LPHA ARR A Y I PCO 1 2 1 ? l i US tP TO CuNUI i \ A N lQU\l AhU . S fc PtiT l „n c j i) S n UG Hl 



0C31350G 

00314000 
00 3l'=>000 



PROCEDURE TABLELOOKUP(lt>#LOC);ARHAY IDC ] ; I NTtGLK lQC; 

BEGIN 

INTESEft TtNt — : — 



00316000 
00317000 

nniiRooo 



17 
18 

19 
20 



BOULEAN STREAM PROCECLPt. GO T IDENT C A* N, B J / VALUE 
BEGIN SI?=A;Dn=B;TALLYJsO; 
I F N SC s DC TH E N TA LL Y »- l.« , ^ , 



N> 



00319000 
003<i0000 
003«ilOO0 



21 
22 



23 
24 
IS 



26 

27 



28 
29 



30 
31 ' 
32 
33 



34 

35 



36 

37" 
1 38 



60TIDENT«*TALLYi 

ENO gotioent; 

KLASS:aKLASS-i; 



FOH i;a 129 STEP 1 UNTIL PRTMAX DD 
IF NJaNAMECn, [18:30] NLQ THEN 
I F N . FF-LOC O R L O Ca O THEN 



00322000 
00323000 

00 324000 



IF KLASS LEG OR KL ASSsNaMEC I 3 ♦ C 3 ! 53 THEN 
IF G0TlOENT(NAM5CN,CF]fN5=8xN«FF*I0i;O3) THEN 
BESIN :_ _ ..-^ 



0032i3000 
00326000 
003 2 7000 



LOCJsi; 

I;=PRTMAX + 2;S!FURCE 



00328000 
00 329000 
00 33 0000 



FALL fHrtU 



-fcMI. 



IF I GEO PRTMAX *2 THEN ELSE LOCt**!; 
END OF TABLELOOKUP) 
DEFINE GETlDL0C{GETlDiQCl.GETl0i0C2«aETlDlQe3.GETl0i QC4)i 



003il000 
00332000 

Q 3 J3 60 



00334000 
00335000 
0Q336nQQ 



BEGIN 



FILL ID[*3 WITH GE T I DlUCI #GE r 10LCC2, GETl DL0C3; 
TARLEI CfJKUPclD>fiETlOLUC4); 



00337000 
00336000 
00339000 



ENO#;X 00340000 

PROCEDURE FUDEFINES; 00341000 



40 

1 41 

«2 



I 44 
45 
46 



48 
49 



52 

I &3 



S5 

I 56 



THIS PROCEDURE IS RESPONSIdLE FQK FINDING THE PRT LOCATION OF AN 00343000 
IDENTIFIER DEFINED IN "PRTS" F OH UrilCH THERE IS A CORRESPONDING 003a4CO0 
ENTRY IN "INFO". IT DOES THiS d1 CALLING "T ABLELOOKUP" TU 0Q345Q0Q 



PERrORM A LINEAR SEARCH QF "NAMES" TU LOCATE AN IOEnTIFIEH IN 
"NAMS" AND COMPARE IT WITH THE ONE GIvEn IN "INFO", If AN 
inFNTlFlFR r.AN NOT tiF LQCATFQ IN "NaMS"» TH£ "PrTS" ELFMENT IS 



00346000 
00347000 
00346000 



LEFT UNCHANGED--OTHERWISE1. ThE mDdRESS OBTAINED Is STORED 00349000 

IN "PRTS",********************************************************/ 003b0000 
INTEGER, I»t RC? _.^ 003blQ0Q 



INTEGER STREAM PRCCEOURE IDlENGTKCA); 

BEGIN LOCAL L* SlisLOC l; Oi«»A; 

3(IF 9SOCC THEN JUMP OUT ELSE 



SIJ«LQC L END); 

END idlenghth; 

FILLINFO; 



idlengthjstally; 



BEGIN TALLY>3TALLY»i; 



00352000 
00353000 
00354000 



00355000 
00356000 
00357000 



FOR IifO-:STEP 4 UNTIL INFQMaX DU 
IF <lOC«»10tENGTH(INFQEn))«0 THEN ELSE BE6IN 
MOV£(INFOCI3>IDi03#3)i KLASStwINrOC H33> 



00358000 
00359000 
00360000 



I 2 

3 

4 

I ^ 
6 

■/ 

1 8 
9 

10 

I " 
12 

'3 
14 
15 



16 

I " 
18 

19 

20 

21 

22 

23 

24 

25 

28 

27 



TABLELOOKUPCTD*LUCj; 
PRTS[I/43 :=IF LQC GTR 

Ki. A.ss;gn,? ^ 



ThtN LDC ELSE PHTS[I/a] END; 



IF PRT32.C46in THEN FQ« I»»0 STEP 1 UNTIL PHTSmAX 00 
WRITE(P*<«PRTS["*I3'*'J» ♦M4>*I*PRTSEl])i 
ENP FTXTNfi nFFTNFS; 



BOOLEAN STREAM PROCEDURE 

VALUE b; 

H|;(ilN ^ . 



BITONCW/B)' 



SI I *w; SKIP 8 sb; 

IF Si THEN tally: el ; 
BITONtsTALLYJ 



END OF HITON; 
PROCEDURE. NEXTITEm; 
-^^ BEG I N ., 



write(P); 
writccpeObl3*stars); 



PROCEDURE PRlNTMCPQPTinNS; 
BEGIN 

WRTTFrPrnRI 1,MrPl^nH.i ^wn ..^npi F>/[r | ); 



FOR n»l3*0*15*l»2.3f 4»5#6#7#8*9»i8*l7*l*'lO'l6^n»l2 00 
IF BIT0NCMCP*A7*I) THEN WPlTECP* MCPCPT C U ) i 
WBTTFrPTnBLI^; 



END OF PRINTMCPOPTIQNS; 
DEFINE DATE =C11<^)#* 

-.,— — — cincK sci20)y.« 



XCLOCK s(l21)## 
BOOLEAN ARRAY M0D0N(:0»7]; 
TMTFGFB ARRAY TTf^ r"iQ1i 



ARRAY RTDC0I5]; 

DEFINE TIMEANALYZED 

DATFANALY^ED 



TIMETAKEN 
OATETAKEN 
TIMFLASTHI 



* ITDCOJ*, 
= JTRMItft 






SINCSLASTHL 

MINUTES 

SECONDS 



JtOt23#* 
IT0{3 3## 
iTQI43». 



OFFTNE 



DAYS 

YEARS 

DATX 



* lTD[i5]»f 
= lTDt63#, 



XCLOCX 
CLOCX 
TEMP 



« iT0C8]## 
« 1 TO 1 9 l«i 
». RTDCOlt, 



KINDS 

MCPVERSION 
FORMAT OU T FMXXC^OATE ANALYZFQ 



- RTDCU** 
' RTD[2]#, 
* RTDCi^J*^ 



RTOt43*. 
» RTOt53#; 



"TIME ANALYZED " # I2» " : "» 12^ " ; 'M c J » 
XIC'MCP VERSION NUMBER "»12/ 

"HATE TAWF . N , *t, jg .»»/h . , g. »*/" . j?/ „___ 

♦fTIME TAKEN "» I2»" :♦•* 12, " «•♦» 12), 
XIMARKXICMCP VERSION NUMBER ",Al»A*/ 

-^DATE TAKEN ",l2,'V'^,l2,H/naM 



>I2/ 



"TIME TAKEN ",I2, ,I2'"J",I2)' 

FMX2C"TIME OF THE LAiT HALT-LOAD ", I 2, •• J ", 12, " : " . 12 ) , 

SYSTPr'DUMP TAKfTN DN SYbTEM ",A1)> 



fTAP0SK<A4," FILE CONTAINING DUMP IS «, Al ,.A6,''/'',Al , a6 ), 
FCOMVALCCOMMQN VALUE USED IS ••*IS), 
rANALt**ANAI VZFR \/ rRS I flN*", A 1 i, ' 



OOJolOOO 
003A2000 



OOJ64000 
00365000 
nn366nnn 



0039^000 
003^-6000 

nn.!^7ooo 



003«8000 
00399000 

ocanoooo 



00401000 
00402000 
0040 3000 



00404000 
00405000 

no 4 Oft 000 



00407000 
00408000 
004(^9000 



00410000 
004U000 
00412000 



0C413000 
00414000 
00415000 



00416000 

00417000 
nnAiftnnn 



00419000 
00420000 
nfi4>vinn 



00422000 
00423000 
0Q42400Q 



0042^000 
00426000 
0042/^000 



00428000 
00429000 
0Q430QQQ 



004J1000 
00432000 

nn4r^ooo 



00434000 
00435000 
0436000 



00437000 
00438000 
00439000 



00440000 
004410GO 
Q04420QO 



00443000 
00444000 
00444100 



00444200 
00444300 
004444Q Q 



J 






T-ll 



4U 
'IS) 
SO 
51 
S.2 
63 
^4 
!>5 
S6 



>r 



I 2 
3 
A 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 



21 
22 



23 
24 



25 
26 



27 
28 



» 
31 
1 J2 
33 
34 
35 
36 
37" 
38 
39 
40 
41 
«2 
»3"" 



( U 
45 
46 



«9 
I 50 



51 

52 

I » 

54 



55 
f 56 



FMX3("TIME SINCE LAST HALI-UOaO "» l^i* " : "M .J* " J "M2) ; 



FORMAT 
FHtiMAT 



BAOBEDC********* BAD 6tD ENThY *********"); 
RAOnATE fOAll l,)ATE T AKt:(N ,...,.") > 



BADXCLQCK C "BAD T IHE TAKEN ..... ")> 
BADCiOCKCBAU TIME OF H/k"); 
FORMAT RAnr.FI I .^CwnWD 3 HAS TwF Fi At; R TT nm. 



00««*!3000 
00^46000 



004 48000 

00449000 
Q045Qnno 



PROCEDURE TIMES C WHEN* HRS/ Ml Nj- itC) / 
REAL when; integer SEC'MlN*HRji 
B E filN ^ ^ 



INTEGEt yt 
IF WHEN LSS OR WHEN 

■^ - ■'■■■■•■■ '■' — flse beg I 



00451000 
00432000 
004!)-i000 



GTR 5114000 
> TtsWHFNf 



THEN hRSi»MINt»SEC:»100 XOvERFLOW 



HRSJsT DIV iildOOO; 
MINJ=T DIV 3600 MOO 60^ 
SEC>^T DIV ftp MOD 60/ 



XWXj 



END OF TIMES PROCEDURE; 

PROCEDURE DATES CaO ATE* MONTH* DAY* YE Aft); 

VAI UF AHAtrJ 



ALPHA A DATE? 

INTEGER MONTH#DAY*YEAR * 
BEGIN -. 



REAL Y#D*m; 
LABEL on; 
ARRAY nAYTApi f-' 



fo t in j 



STREAM 
VALUE 
B E GIN 



PROCEDURE 
OAT ; 



CONV CYEAH,DAY*QAT ); 



Sn* LOC DAT; 
SI IS SI +3; 

4)4 — l.s, YEAR; OS 



2 OCT; 



DI 



DS :s 3 OCT. 



15 day; 
end; 
ftil daytablf 



[ t>j WITH 



0*3l*59#90#i2a#l5l* 18 1» 2 lii# 24 3* i:7 3* 304* 334; 

CONV {Y,0*ADATE); 

IF ffY MOn 4>»(n ANn fYXO) THFN 



BEGIN 

IF D =6C 
BEGIN 



THEN 



M IS 1; GO TO on; 

end; 

IF D > 60 



THEN DiaiD-lJ 



end; 
for m 1= step 1 until 11 do 
if qaytable [m3 geq then 



GO TO ON, 



ONI 
MONTH IP Hi 
IF MaQ THEN 



iipQ fcLSE %G0 AHEAD 



DAY »= D - DAYTABLECM-n; 
YEAR SsY; 
END OF PRnCECLi.RE HATF? tRCC 



INTEGER MAXMOD^MAXCCjR; 
iNTEQfR TABLESLOC; 



X UTILITY PROCEDURES 
REAL PROCEDURE OCTALCN);* 
V AL UE n; % 



INTEGER N;ji 

X N.C1I233«0 SO THAT IF N CONTAINS AT 

% OCTAL IF FBINTED USlNfr FORMAT* ,QR 



00*54000 
00455000 

004 56 on fi 



0G4ii7000 
00436000 
aO4'T[9QO0 



00«60000 
00«t6j000 
no46ahnn 



00463000 
00^64000 
0Q4 65Q 00 



00466000 
0046/000 
004 68000 



00469000 

oo4roooo 

004/1000 



004^2000 
0047 3000 
00474000 



00475000 
0C476O00 
Q04 7<^fln0 



00478000 

004 79000 
Q0480QOQ 



oc4aiooo 

00482000 
QQ4t>300fl 



00484000 
00485000 
00466000 



00467000 
00488000 
00489000 



00490000 
,00 i9 1000 
#049^000 



00493000 
OO494OO0 
00495,000 



00496000 
00497000 



00528000 
005^9000 
00530000 



00531000 
MOST, A HALF-WORO THEN 00532000 
A FORMAT FOR FEWER QCTA0£SQQ5330 , 0Q 



""'1 

t9, 



2.1 
124 



2H 

Z9 



i:!| 

13 



44 

45 

4fi 

17 ' 

48 

49 

SO 

SI 

52 

63 

64 

5B 

a. 

3 



>r 



7 
8 
9 
10 
11 
12 
13 
14 
IS 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 

ze 

29 
30 

Si"" 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 

44 

45 

«6 

47 



49 
50 
51 
52 
J3 
S4 
S5 
56 



* WILL BE TH 
OCTAL» = N.Ca5S33<t 
REAL STKFAM PRQC 



E OCT^L REPRESENTATION CF \ 

(IF N>7 Then CCTALCfv.CSitScilJ J ELSE G)[3»9l39-j; 

FDUHF CH R SC ATtSl\lPPIN(i>MANY)J — - 



VALUE SKIPPI 
X RETURNING 
BE GI N 



kg»many; * 

THE 7 OR LESS CHRS REQUIRED 



sissat; si:s 

DI:bLOC CHRS 
L1S>=MANY CHR 



; Ds: = 6 lit"0"; lii:=ui-many; 



END CHRS; 

INTEGER PROCEDURE HIHALFCLOO* 
V A LUE loc; 



INTEGER log; 
HIHALF J=CHRS(M[L 
INTEGER PRncFDUR 



Dc,How»LOc.caL]*u*-^;; * 

E LUHAlFCLliO; % 



VALUE LBC; 

INTEGER LOCi % 
I nHAt r:»if.MRSf Mfi nr ,Rnw.| nr.roi T.a.AH x 



BOOLEAN STREAM PROCEDURE FLGB IT ( WORD )/ 
BEGIN 

ST ;gwoRD; % . . „ 



IF SB 
FLG6IT 
FN O FL GBIT 



THEN T 
««TALL 



ALLVJsW * 

y; i 



ARRAY THISROW^LASTRU 
SAVE ARRAY ALINtCOJl 
AR^AY R LI N ECQtl fl ]/ 



8]; 



BOOLEAN NOTPRINTCALL 
BOOLEAN STREAM PROCE 



# avalnk; 

cure comparewor0s(sfd*w>> 



BEGIN 

LABEL XIT; 
_ SH=Sr018=D; 



W(IF 8 SC 
TAlLYlsi; 
XTTI C OMPA R 



NEQ DC THEN JUMP OUT TO XlT); 
FW ORn S?^T ALl Y f 



END COMPARING WCRDS/ 

X 

PFFTNE ,PP^T,NTfP,RlNTlfPRTin2)=IF NUnUt^P THEN EJ.SK 



PRINTC0RECPRlNTl,PRrNT2)#; 
r>anMDtjRE PRiMrnnRFCFRnM^Ton); 



VALUE 
INTEGE 



FROM^T 
R FROM 



00/ * 

rTUu; 



BEGIN % 



DEFIN 
OEFINE OCT 



E FORI a FOR I i» 9 STtP 1 UNTIL ^1 00#J * 
ADE * {0S««3 RESET;3CIF SB THEN OSIbSeT ELSE 
■'. flS:.g , R £SETiSK TP^'i>B 4 )# ..' i ^^ ■■■" -^ ^ ■■'• ■'' '- __ 



STREAM PROCtDuRE BUILDCFRO 

VALUE FROM*NA/NB*NC*AL*AO; 

BEGI N P I: = L rNE ;s 



M*LlWE*XA*NA*XB^Nb*NC*AL*AQ); % 

% 
i;s=LUi: FRUM;sM = :.i+5;aMP 3sr; 



b octade; d 

NACD 

. NR(n 



S :s L 
Sl*i.IT 
SuLlT 



IT •• "i 



AOC SI is XAJ ^ 

s»»LiT" •♦;8 octade));sh«xb; 

St^L l T" "? 6 PC T AP E) 3* _. 



00534000 
0C53500C 

n(it?36nflo 



00537000 
00538000 
O0'a^9000 



00t>40000 
00541000 
OQiaazooo 



0054 3000 
00544000 
00 54 5000 



00546000 
00547000 
OC5aflQO0 



00549000 
00550000 
00551000 



00552000 
00553000 
005-34000 



00555000 

005b6000 

■Q0557000 



OQbiiaooo 

00559000 
00559Q50 



00559100 
00560000 
00561000 



00562000 
00563000 
00564000 



00565000 
00566000 
nnb67nnn 



00568000 
00568100 
Q05<?a?00 



00568300 
00568400 
00569000 



005/0000 
005/1000 
0057 2 00 



0G573O00 
00574000 
n oS7!>nno 



00576000 
005/7000 



00579000 
00580000 

nn s aioo o 



NC(DS»al9LIT" "); 

ALCSi ;*xa;na(DSi5LIt' 
s i; sxb ; nr(u s ;slit 



DSrsLlT" "); X 

' ";DSJ?a CHH); * 
I ";usis6 CHR); % 



00582000 
00583000 
00^84000 



NC(0Sle9LlT'' "); DSt»6 L 
STREAM PROCEDURE MW(A*8); BEGIN S 
STREAM PRQCEDURF FXP ANPC AlTNF «BlI 



IT " "?; END PUILO; % 

n»Ajou»B;DSt» wos eno 

NEfNii VAtUF Ni 



Mv; 



00585000 
00586000 
005861 00 



bt- 

'JC 

1 

f'\ 

:,i 'ii 
,>■, 

■■ 
:r'i 

40 

1 J 
"I 

i 

48 

Ii* 
50 
«1 
52 
63 
54 
55 



F 



>T 



12 
13 
14 
IS 
16 
17 
18 



19 
20 



o 



22 
23 
24 
25 



2« 
27 



28 

29 

90 

31 ~ 

32 

33 



34 
3S 



96 
37" 



38 
39 



42 
43' 



00 



45 
46 

I " 
•8 
49 

I 50 

51 ft 

52 
1 S3 

S4 



55 

I 56 ; 



BEGIN nlSsBLINl:.; 18CDo:sBLiT" 

Sl!=ALlNEi Si:sSl+?; 
NC ? ?C 8 OC-TAD t. ; ni i sD l t , U J 



END expand; 

BOOLEAN M ATCH, FIRST, CAST* ST AHD> 



"); ui:=dLiNb:i Ui:=oi + 7; 



QOOLEAK AL*AC; 
LAUEL EDITLINE; 
IF DUMPAi rHAONUY 



THEK ALisTHlJF LLiit 



IF DUMPALPHAOCTAL then AOtaTRUE ELSE 

IF NOT OUMPOCTALONlY THEN 

IFCItaARFATVPFClF NnTPWiNTCAll THFM llKMYPF 



TYPMAX+l]J GTK ANH aVaLkK THEN 
IF I;=A8S(n = 3 THEN AL!*TttUt EL$L 
I F I s 2 THEN AOiaTRU E; 



ELSE 



ELSE 



ZH=C2ls|F AL THEN 12 ELi»E IF AlJ^aO 

IF NOT (AL OR AO) THEN AO:bTHUE; 
AOtgAn ^Mn TBitFi &i.!sA< ^N" TouFt 1 



THEN 4 ELSE 6)-U 



STARCOUNTJsIF 2*12 THEN 114 ELSE IF i^^b THEN 120 ELSE 119/ 

FIRST istrue; 



IF TOOFROM 

DO X 

HFTilN % 



THEN * 



IF NOT LAST ! 

BEGIN 
., IF FIRST 



CTUU - FROM LEQ I) THEN * imGT LhST LINE 



- THEN 



BEGIN 
IF FROM. ROW »CrR0M+2 ) .ROW 

,.J.,.tp,.;M f^ , ; .^ • ■■ .....: 



THEN MOVECM£FHflM.ROW#FftOM.CULJ'LASTROW#Z) 



FORI MVCmLCFRUM+I ).HgVn/CFRUM+1).CUL^' 

LASTRQWCm; 
,'3TARc;-F Al .SE,? 



IF 2«12 THEN GO EdITLINe; 

firsts«false; 

EW) 



IF FROM, 



ELSE 
BEGIK 

,Hui><=(FRn'^+zj.Rr)w., 



ELSE X 



THFN MiMf CHL|:-HGM .Rl. ; ^v,FRUM. C G L 1,TNTSRQW.7) 



FORI MVCMC(FROM+I).HOW*(rROM+I>.CaLi* 
: THTSwnwn J vi 



IF (MATCH J = CCMPARE^^GRD5CTHiSROwi;ol>LASTROW[03»Z)) 

ANu NQI STaHD then 
— ^-- BE(iIN _^_^_^_ 



IF DUUBLESHACE THEN 

WRITE(PCDBl3*STABZ,STARC0UNT) ELSE 
WRTTFfP>STARZ>fiTARrniiNT'H 



stardssthul; 
end; 
tf not match thi-n 



BEGIN 

stardisfalse; 

MOvECTHlSRnW/LASTHQW/ZW 



end; 

end; 

END;a; IF NOT 



LAST 



IF 



LAST 
NOT 

mi. 



UR 
STARD 
MATd ii. 



OR 
THEN 



00566110 

ooi'beigo 
no^rtfti30 



00586140 
0058? 000 

no'aftfinon 



0Cbti9000 
00bti91G0 
OQiJyOQQO 



00591000 
00592000 
QQS93 00U 



005^4000 

00594100 

.00594200 



00594300 

00594400 
0059*4000 



00596000 
00597000 

on59Hnno 



00599000 
00600000 

0060 inno 



00602000 
00603000 

006 0,4000 



00605000 
00606000 

no6()7oon 



00608000 
00609000 
00610000 



00610100 
006 1 1 000 

no6}?onn 



00613000 
00614000 

oo<?i5nno 



00616000 

ooaiFooo 

006lft00fl 



00619000 
006^0000 



00622000 
006^3000 



006i;5000 

00 626000 
006^7000 



00628000 
00629000 
00630000 



00631000 
006320O0 
00633000 



00634000 
00635000 
00636000 



r 

m 



'Aft 

■i-:,\ 



-19 
SO 



52 
b3 



^ 



2 
3 
4 
5 
6 
■/ 
8 
9 
10 
11 
12 
13 
14 
IS 
16 
17 
18 



19 
20 
21 
22 
23 



24 
2S 
26 
27 
28 
29 
30 
31 
32 
33 



34 
35 
36 

37 ~ 

38 

39 

40 

41 

42 

«" 



45 
46 
47 
•8 



49 
50 



51 
52 
53 
i4 



55 
56 



EDITLINE! 



BEGIN 



006:37000 
006J7100 
OCKiiiflOOO 



IF{rROM+H),RCW NrU FRUM.HOW THEN % CRaSb ROW ROUND 
BUILO(FROM,ALlNE[*3»MtFRt}M.ROh#FRQM,COLJ*5l2-rRDM.COL» 
M[{FRQM*R).Rnw»n^>fFRt:M-t.RncOL,»IF H I S.S /; THFN I 



00639000 
00640000 

nn6<nnnn 



I'H ELSE C*A 

BUILDCFHOM 
: M [ ,t 3 



L#AO) Else % STILL IN bAME HQw OF N* ARRAY 

*ALlNEt*]*M[FROMtRUl^/FROH.CDLJ>R> 

*C«IF R LSa L THFN CW ,£1.SE H/f>,L#An); % 



00642000 
00643000 

ooftgoono 



IF Zsl2 THEN IF FIRST THEN 
BEGIN 
- FTftSTigf-ALSf ; 



00644100 
00644200 
nn644^nn 



IF DONTPRINTLINKS THEi\ ELSE 

BEGIN 

E XPAN UC A L lN E>6 L l N L ^2^F't^AHAV^L N K)?> 



00644310 
00644320 



WRlTECPCOBLl>ia»BLINEl*])i 

end; 



END? 



00644500 
00644510 
006446Q0 



IF DOUBLESP 

WRITECPM8* 

E ND! % — 



ACE THEN kSHlfECHtOBLl^id^ALlNEC*]) lLSE 
ALINEC*] ); 



-&W 



END UNTIL (FROM J* FROM + 2) GEO TOQ^ % 

WrtlTECP)? « 
D print; X . 



0064b000 
00646000 
006 4 7000 



FORMAT ITEM(A5»" = " 
BOOLEAN PROCEDUR 



00648000 
00649000 
650000 



*2(U»Xl)»A5*x89j; 

E pL)ATADESC(MT*riHATJ/ 



006131000 
VALUE at; 006bU00 

INTECiEH at; KEAI. WHAT; FORWARD; 006^1200 



ARRAY LINEt 0*14 3 

PROCEDUBE OISPLA 

VALUF WHAT»R 



YIT(WHAT*RANGE»ADR); 

ANflE t adr; , 



00652000 
00653000 

nn654aon 



BE G * 



INTEGER WHAT/ADK; 
BOOLEAN range; 



00635000 
00656000 
nQft,:)7000 



INTEGER H#L*T; 

BOOLEAN PP; 

TisTF PP8«CA0Ral)) THEN WHAT ElSE ADR; 



00650000 
00658100 
00658500 



IF NOT PP THEN IF PDA F ADESC ( T, H ) AND h,L8Jl03 NEQ THEN ELSE 00638600 
RANGE«=FALSE; 00658700 
WHTTF(LlNF[*1iTTFMynCTAL(,T j# Q6:?9Q Q0 



0CTAL(H»*HIHALF{T)J* 
0CTAL(L»«L0HALF(T)}# 
IF RANGE THEN OCTAL(M. 



C32iiaUL.CF*l) 



00660000 
00661000 
0Q66200Q 



ELSE 
IF 129SWHAT 
M0VFCNAMS[NA 



" ) ; 

AND WriAT<PHiTi'lAX THEN 
MEr^HAri.CF]>LlNt.C4j^ 



00663000 
00664000 
00665000 



NAM 

IF SGLTOG THEN W 

I F PP T HEN . 



EtWHATl.FF); 
RlTE(P*l7*LINEt*3) ELSE 



00666000 

00666500 

-00666900 



writecpcdbl: 
END display: 

DEFIN E D I S P LA Y (Q IS PL A Y 1 »DI 5 P I,.,A Y 2 is 



,]M7#LINE[*] ); 

it; 



displayit 
boolean procedur 
value ati i 



(DliJPLAYl^DlSPLAYg^O))^; 

E operanO(at#whaT); % 



00667000 
00608000 
66 8 100 



00668200 
006 6 90 GO 

oao/OQOo 



INTEGER at; 5 
REAL WHAT; % 
BEGIN % 



006/1000 

00672000 
Q 0673 QQ0 



INTEGER 
IF FLGB 

QPFRAND 



R*c; 

ITCMt 
.l « F A L 



% 
R:«AT.R0W*C;»Ar.C0L3) THEN * 
SF « . ' 



00674000 
00675000 
6 7 6 OQ 



!.!< 



^1 I 



47| 
48 

1i» 

bl) 
tl 
S2 
S).i 
bl 

b(. 



h 



2 
3 
A 
5 
6 
7 
8 
9 
10 
11 
12 
13 
M 
15 
16 
17 
18 
19 
20 
21 



22 
23 
24 
25 
26 
27 
28 
29 
» 
31 " 



32 
33 



34 
35 



36 

37' 

38 

39 



40 
I 41 
42 
43" 



46 
46 

1 47 

49 

I 50 



51 
52 



I ^ 
S4 



55 

I 5« 



ELSE % 
BEGIN % 



00677000 
00o7a000 
IJ (.16 79000. 



-mo- 



OPKRANRJaTRUE; 

end; X 

oper a nd ; % 



% 



BOOLEAN PROCEDURE 

VALUE at; 

INT L QER A TJ 



00600000 
00681000 

QOftagooo 



DLSCKIPTUrU AT»Wi-IAr*KIi\U); 



REAL WHAT#KIN0) 
BEGIN 

TNTffiER R,ct 



006(3 JOOO 
00634000 

ooo a a oou 



IF CKIND5=0CTALCChHSCMCR!sATtHUl>/C: 
BEGIN 

DE a cRIPTCR;gTRU£; — — — 



00666000 
00687000 
n066»000 



:AT.CUL1^0,1)))>"40" THEN 



WHATt*CHRS(MCR>C}*lf 73; 



end; 

END D£SCRIPT0R; 



BOOLEAN PROCEDURE PUAT ADESC ( AT* Wh AT ) ; 

VALUE at; 
TNTFfiER AT? 



REAL 
BEGIN 



what; 



INTEGER kind; 



if uescriptor(at/what/kind) 

kinp-"5p" then 
pdatadescistrue; 



AND 



end; 

BOOLEAN PROCEDURE 

VALUE at; _ 



controloesc(at*what); 



integer at; 
real what; 

BEtilN _ 



INTEGER TYP; 
CONTROLDESCIsDESCRIPT0RCAT#WHAT»TYP) 

■ ■^- ■'.■ .■ ■'■ •... ■ TyP,r/tQM3»1 A HD 



AND 



TYP.[ab:iJ=0; 

END controldesc; 

TNTFGFR MI NLNK^ MURAR t MAXRAO/ MAXLNKi it 



BOOLEAN NEEOCHEC 
ARRAY COMMTCOU 
PROCEnURE 



KAVAlLNKS;%FALSE IF 
93; BOOLEAN COMNT; 
MrPENTRIESJ 



OPMT DUMP 



BEGIN 

SGLTOGI= 

DT SPLAYC 



true; 
B FOyF AL 



sp; 



01 SPLAY ( 
DISPIAY( 
OISBLAYC 



PRT'FAL 
JAR*FAL 
It^TRNSC 



sE); 
SE); 



DISPLAYC 
DISPLAYC 
DI SPLAY( 



sheet*f 

JCBNUM* 
NFQ^FAL 



ALSE); 
FALiJt); 



DISPLAYC 
DISPLAY( 
PI SPLAY ( 



ISTACK* 

WAITQUE 
PlMIX^F 



FALSE); 

^FALSE); 

ALSE); 



DISPLAYC 
SGLTOGJs 

end; 



p2mix»false); 
false; 



PROCEDURE GETPRTENTRIES; 
BEGIN 

REAL adr^wcprtrqw^l; 



oooavooo 

006y0000 

OQ6v ; ooo 



00692000 
0Q693000 
00 6 9 « 000 



UUo'ySOOO 
006V6000 
006^7000 



00698000 
00699000 
00700 Q 00 



00701000 
007Q2000 
0070 3U0 O 



00704000 
OG7O5000 
l70ft( 



-OXJj 



lOOO 



00707000 
00706000 

nn^09n()(; 



00/10000 
ooniooo 

QQ712000 



00713000 
00714000 
00/15000 



00716000 
00717000 

Qoneooo 



00/19000 
00/19100 



00721000 
00722000 
00723000 



00724000 
0072b000 
00726000 



OOT2T0O0 
00728000 
0072900Q 



00730000 
00730100 
00731000 



00732000 
00733000 
00734000 






n 



-.-^1 



m 



52 

53 
51 



h- 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 



13 
14 
15 



16 
17 
18 



19 
20 



21 



22 
23 



2S 
26 



27 

28 

29 

30 

31 ~ 

32 

33 



36 



52 



55 
56 ' 

53. 



REAL ADRR; 
INTEGER I^k; 
ARRAY MTX[fi;4U1 



00?35000 

007J6000 

.QQfiJQOQ 



FORMAT PRTOUTCXlO*"PKT LGCAT IONS ! "/ 

X20*»*M1X"*/(20*''PRT'V), 
rif x?n. A2»v;'(i, k'^)t 



FORMAT BAOPRT("********BAi; 
LABEL XIT/ 

LA BE I. next; 



PR! DESCRIPTOR*******"); 



00/38000 
00739000 

nny<40nnn 



IF NOtCPDATADESC(PRT»L) AND L.CF hlQ 
AND itCSJlO] lSS An THEN BtQIN 
: MIXMAXi'DEFlNEflMIXMAXiiii 



AND L.C««103 GTR 



OOMIOOO 
00742000 

ooMaooo 



WRITE (P/BADPRTJ; 
ADR:- L. [33115]; 

wc»= i.aaufli; 



GO XIT end; 



OO/tt'^OOO 
00745000 
FOR LINK CK 007416000 



KJs-i; 

MIXMAXISWC*!; 
FOR I in I STEP 



00747000 
O0M8O00 
0Q74VQ0Q 



\ UNTIL CWC-t ) on RFGIN 



IF PDATADESCCACR+I»PRTRQ^) 

IF PRTROlN sc THEN 
GO T O NEXT? 



THEN ELSE PRTRUW;s0; 



00750000 
00751000 

nn7'^?on^ 



Kls»K + i; 
Ml X t K 3 I s 



00753000 
00734000 
007 5b 000 . 



l; % SAVE MIX NUMBER 



MIXIKts K ' t- nt B PRTRUw; 



next: 
end; * OF 

WRITECPfPRTU 



00756000 
00757000 

- 00758000 



FINDING 
T); — 



PhTvS ii VALID MIXES; 



WRITECP»F1'F0R ItsO STEP 1 UNTIL K d" OcT AL (M IX t U . [ 33t 153 ) ) ; 
XIT» 
FNn OF riF TPR TE NTH Il 



00759000 
00760000 
00761000 



I E' -^ J 



PRUCEDURE DUMPARKAVCPRTlOO; VAuUF PHTlOC; IMEbLR pHTLUC; 
BEGIN 
INTEGER l.nc»Sl7Ef i; ______„_ 



00762000 
00763000 

nn76^oio 



00763020 
00763022 
070 302 4 



FORMAT F(X2#l4^X2,2CD*Xn); 

DISPLAY CPRTLOC* TRUE); 

TF PRTLOC GFQ ISC ANH FRTI PC 



LEW PRTMAX THEN 



00763026 
00763028 
on 7630 3 



IF PDATADESCCPRTLCC*L0CJ THEN 
IF SIZE:*Lac.C8:i0] NEQ TtiEN 
TF I.QCtgl nC.CF (iTR Q THFN 



00703032 
00763034 
QQ793 03 6 



BEG I N 

FOR It»e STEP I UNTIL SIZE"! DO 

WRITF{P»F,T.nrTAI (HTHAI FCl QC* I ) ) > DCT Al ( 1 OHAi Fft DC*in)f 



0C763038 
00763040 
00763042 



END 



write{p[dbl3); 
end; 
dumparray; 



PROCEDURE 
BEaiN 
FORMAT 



dumpcesspool; 

HDRf "D?5-ApN»ARNQRMAL"/"D24»ftR »RFa6 HEAaY**/ 



00763044 
00763046 
007630^6 



00763100 
00763105 
7 61 1 10 



"D23-BFL = BUFFEH FINAL LCJCATIUN'V 
♦•D21-WR -WRITE HEADY''/"D20-BSY = fciUSY"/ 
"niB-NTR-nTCU NLT REAHY"/ 



"NOTEjBSY AN0 NtR»AOAPTER/OTTU NOT READY**///); 
FORMAT WHATFIUECCORE P0RTION QF SEPTIC /•♦» Al* A6*// ); 
HEAL UB^FRQM; BDOLEAts LQJ ■ . .■: '■' 



00763115 
00763120 
Q7631 2 5 



FILE SEPTIC DISK SEKIAL C 2*60, MYUSE = I NPUT ) ; 
DEFINE BUMPI » UsI-^u; 

nFFINE lNT S PaTNfc:ntf; 

ARRAY CC*NAMC0I3J; 

LABEL LOOP.EOJ; 

STREAM PROCEDURE TNlTfAU 



00763130 
00763135 
00763140 



00763145 
00763150 
QQ7o3l55 



00763160 
00763165 
007 6317Q 



47 

I4« 
4r) 
b« 

!:.i 

-I 

|62 
b4 
S)6| 



h 



22 



24 



26 



31 






GO 



r\3 



4S 



BEGIN OIJsA; DSJs32 LIT 

"PASS INTACT, iKTWRITE 
END I N I I J 



RlAD 



STREAM PROCEDUKt FLLCA*i*C#0,E); VALUE a,C*0; 
BEGIN Dn»E; lb(DS«»8HT» "); OlisEi Sll^Aj 



oo^ciiao 

00 7(^3l6t) 



2(DSl=2DEC; A» = DIiUIS = UI-2;DSt5FIl.l-;ji: = A;USS=LIT'V"); 
,Sl|gSH-6; ^ K I P 2 S B J ;t S T A RT AT 



Q0763190 
00/63195 
00763200 



IF S8 THEN 

DI»«D1*3; 
TF SR THEhL 



riUX 



DS8«3tIT»AeN»' ELSE 0I»«DI*3; SKIP SB; XD25 
-&St8->UT"RH " EtSF nTraflTtli SKIP Sft t lir)?4 



00703205 
OOi'03210 
7 63^15 



DIJ=DI+3; 

IF SB Then 

0I?sDU3J 



00763220 

00 76 3225 
0076 3210 



DS:3:3LlT"Bf L" LlSE DI»aUl + 3; SkIF Sb; *Q23 



Skip sbjxignure oaa 
if sb then dsi«3uit"wh 
oi»«di*3 ; 



00763235 
00763240 
7632 45 



ELSE DIi«Dl+3; SKIP SB; »021 



00763250 
007 632 S5 
007 63 260 



IF SB THEN 0S:=3L1T"65Y" ELSE 0lJ=UI+3; SKIP SB; XD20 00763265 
DI«=Dl+3; 00763270 

SK I P SB; a tUMURE Ql <j „ 00 7 6 327 5 



IF SB THEN dS«*31.IT"NTH" E.LSE DI»*DI + 3; «D18 

END fll; 
PROcrnuaF tim c a^cq; v a lu e a j rfal a ? a rr a y cccoi ; 



BEGIN INTEGER I'j; 

STKEAf^ PROCEDUHE FFCA'BJi 

B EG I N s i»= a; di:- b ; ^ 



END 



4{DS»«2 dec; OSISUIT "I"); 
01 1*01 "i; DSt*5 LIT •♦ "? 
je:S4 — . 



FOR Ub3 step "1 UNTIL Ub 
BEGIN CCtnSsJJsA MOt) 60; 
Ai^A f)TV tOi 



FNn 



end; 

FF{CC*LINEC73); 

tim; ___^ 



BOOLEAN stream PRCCLDuRE glunk(a); 
BEGIN SI:«a; if SC-" " THEN TaLLY:=i; 
GLUNK:»TALLY? 



END glunk; 
procedure mmm{b>I); 

BEGIN real c; 



VALUE b; real i#b; 



STREAM PROCEDUHE MQVECA^B); 
BEGIN SISsA; DltsB; 
8(IF TQfiGLE THEN nS: = LlT 



ELSfc 



IF SC«"«-« THEN DSl*CHR ELSE 0SI»CHH>; 

END move; 

FOB Cl*0 STEP 1 UNTIL B^l DQ 



M0VECINTSP[BUMPn»LlN£[C3); 
WRITE(P*B*LINEt*]); 



e nd; 



XXXXXXIXXXXXXXKXXXXSiSTART 

tNITCNAM); 

IF OP£RlNDCTQGL£W) AMD BnOyLANC I . C 1 3 1 1 H 



THLN 



IF PDATADESCCARGH,FROM) AND FROM. [ 8 1 10 3* 123 THEN 
IF aPERANDC(FR0M«aFR0M.CF) + 127*U THEN lQ:»THUE 
ELSE GO TO EOJ ELSE GO TO EGj EuSe GU TU EOJ; 



iiii»ii»PASE3); ^-^ 
iiiiii«iii^iii?rF.tt^i*I . ■i6'{ 6 i # i > ;., 



0076 3280 

00763285 
00 76 3290 



00763295 
0076J300 

00 7 6 3 30 5 



00763310 
00763315 
0076^320 



00763325 
00763330 
QQ763335 



00763340 
00763345 
00763350 



00763355 
00763360 

QQ7633 65 



00763370 
00763375 
00763380 



00('63385 
00763390 
00763395 



00763400 

00763405 
00^63410 



00763415 
00763420 
0076342^ 



00763430 
00763435 
Q0763AAQ 



00763445 
00763450 
00763455 



00763460 
0Q763465 
00763470 



I 
"I 



■ISl 



DI 

52 
h3 
S,4 
if, 

it 



WRITECP^HDR)/ 00763475 

GO EOJ; % VOID THIS CARO TJ OUHP SEf-TlC DISK FILE 00763480 

FI LL S EPTIC WITH " SE PT I C "»li ^ ^ 007 0348 5 

' WHILE UQ DO 00763490 

2 SeGIN REA0CSEPTIC.60#INTSPt*])CEaji; IJ«0; 00763495 

' i, DQpi ^ ^ ^ on763^nn 

' IF (8J = INTSP[in.[9:V} = Q THEN 60 TC ED^' 00763b05 
' FLL{NAMCB.[7s2J],ti,C9l4]»H,Ll4!4],b.Le;i» 12J#LINE); 0U763510 
. TIM f. INT >' 'PCB U MP l ] , C l ar ^ O l^ Ct : ); 7 6 3i ; 15 



18 



«7 
«8 



«9 
SO 

51 



52 
53 



55 
56 
5' 



WRITECP'ie»tINtC*] ); 00763520 

IF (8l*8.t33li:3j))<0 THEN 00763525 

flEQiN WHILE e UTH 1 4 00 00/ 6 3530 



BEGIN MMMtl4M); BIsB-Ui END; 00763535 

MMM(Bj»n; 0O763540 

'1 FNQ; Q Q763'=)4 5 

WRITECP); 00763b50 

IF 1X59 THEN 00763555 

' 1 TF Gl UNKCTNTSPlRllMPn) THEN FLSE Gn TO LOapf Q076356Q 

'« end; 00763565 

"' EOJJ IF LO THEN 00763570 

BEGIN., QinSEC SEPTIC)/ LP ■ =FA|.. bE^' 0076 3^75 



'V If 0PERAND(FRQM+l25*n AND I NEQ THEN 00763580 

'" IF 0PEfiAN0<FRQM + 62»n AND (1*0 OR I»64) THEN 0076358b 

" RFSTM rRnMlarRUM^T; , . 00763590 



" IF CB8s512-CK:=FKQM.CLLn LSS (i:=60) THEN 00763595 

" BEGIN MCVt(M[FRUM,KOWj.in* INTbP^B)/ 00763600 

^* [U?0i Ii=6-G-h ; FHOti;=F ,t<Q l^-^ 60> ^ 0076360^ 

"^ END ELSE Bi=Qi 00763610 

'" M0v|(MCF«0M,H0W*R3f INT5PCB]*U; 00763615 

"^ ••■,' ■ .. . ■■: "^" Ti*n? fin Tn i.,niiHf , . . nn763620 

" end; end; end; 00763625 

« INTEGER STREAM PROCEDURE MCPCNTCA)/ VAlUt a; 00765000 

" RFQIN sn=Lnc a; si iasn-i; nn/fc&noo 

'' rtlF TOGGLE THEN TALLY « »<TALLY + 1 ELSE IF SC NEQ "0" THEN 00767000 

" TALLY««TALLY+i;snsSI+l); NCpCNT I»T ALLY; 00/68000 

""^ ENO nr MCPCNTHi ; QQ7 69Q QQ 

34 
35 



INTEGER PRTCODE; % SET TO 0/1 UH 2 dY ChECKPKTFILE 007699C0 

PROCEDURE DATIME; 007/0000 

'^l BEGIN INTEGER I; BOQLFAN Hi ^ ^ Q O Vf \QQQ 

" STREAM PROCEDURE PRTFILEMESSCP*L'C >; VALUE C; 00/71100 

"^ BEGIN LABEL MAYBE. 8AD*F IX^ X IT ; 00/71105 

^ v sugp; dh«l; DSisg wus; ■ 00//1110 

*" Ci:aCI+C; 007/1115 

*' GO XJT; % G 007/1120 

''__ G O mayb e; ^1 QQ// 1125 

" GO bad; X 2 00/71130 

MAYBEtOS|a9LIT"CAPP£AHS '•; GO FIX; 007/1135 
dADA 0Sl«l2L TT'*CDrFTN l tF L Yr;Gfl Fix ; _^_ 00/71140 



FIX JDSlalOLlT"INCORHECTr'; 00//1145 

XIT J0SJ332LIT" "; 00//115C 

END PRTFlLEME.SSi _ ,00//U55 



IF NOT COMMON THEN BEGIN 00''/2000 
IF NOT 0PERAN0(3>MCPVEHSI0N) THEN wRl TECH.BADCELL3 ) J 00/73000 
I F F LfiBl TC MCpATE.RfeiW»QATF..CULl} TH EN ^ .^ ■.. ^ 007/ 4 00 



WRITECP*BADDATE) ELSE 00//5000 

BEGIN 007/6000 

""L , DA T X ;= MC DATF. RQW^U A TE . C LJLJJ Q077/O QQ 






DATES(DATX*DATETAKEN»DAYS#YtARS3; *00778000 

end; X OF DATE 00779000 

IF FLGRiTCM[xcLUCK»Rnw*xc:LncK.c:ni.n then - on/floono .. — . ^ - . '^ 



h 



10 

n 

12 
13 
14 



IS 



16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 



90 
31 
32 
33 



34 
3S 



36 

37* 

38 

39 

40 

41 

42 

43 



45 
46 
47 
48 
49 
50 
51 



52 



94 

55 



I 56 
57 



WRITt (P*BADXCLCCK) fxil 
BEGIN 

_- X(.Lucy. >g mxcLn>;K.nu<^i^r.LocK.cciL].f 



OOfiilOOO 
00762000 



TlMESCXCL0CX»TIMETAKLN*MINUTES»St.caN0S3i 
EN0; X QF XCLGCK 
PRTFTI FMESS(PRTNAMF.I T IMF > PR TCnOF, ) 1 



00784000 
00785000 



WRITECP#8*LINEr*J i* 
WKITECP*rANAl.*VERi>ION)i 



T0F104C6»63,T0FI0); 
WRlTE(P#FCOMVAL'REALCCaMMnNjJ; 
WRTTFfP.yiMARKiil .TF H > s f T » gKCPCwTf WCPyFR ST Dk ) afR 



00705500 
00783550 
00785600 



A± 



00785610 
00785700 
Q07 66 QQQ 



THEN WCPVE^islO'M.CoSt)] ELiJE " "' IF THEN 6 EtSt 
THEN \ ELSE I ,MCPVtH3 I Uh*DATETAKEfM* UAYS, YEARi), 
TlMETAKENi'^lNUTE.Si.^l-.CniNlia 



IF 1 = 



-1, 



007b/000 
00788000 
00 789000 



end; 

if shareoisk then 

IF nPtLRANn(SYSM-i*n 



AMD I agQ AND 1 I FQ 3 Tm£M 



00790000 
007V0100 



WRITECP*SYSI0,I+17) 

DAT£S(TIME(0)*CA1E 

TIMESfTIMEdUTIM 



ANALYZll1»UA 
EANALYZ Ep^M 



yS»YEARS3i 

iNuTE;s^a£; cqNJ$? ,; 



007y0l20 
007^1000 
00^*^200 



wkite(P»fmxx,daTeanalv2e 

if common then wri 

if not common then 



IF FLG6IT 

WRITECP 

QZSx 



(MtC 
>BAO 
IM 



0*0 AYS* YEARS, TIME ANALYZED' MINUTES* SECONDS); 00 79 3000 
TE<P); 00794000 

tilEGIN : : O079'i000 



LCCK.ROt^^CUQCK.CUL]) THEN 
CLOCK) ELSE 



007*6000 
007y7000 
00798000 



CLOCX ss MCCLOCk.ROw 
IF XCLOCX LSS ClOCX THEN 
TIMFSf yCLGCX-*Ch OCX«TIMEl 



#CL0CK,C0L3J 

XCLOCXJSXCLtiCX + 518400Q; 
A STHL > M r NliTF S * SE C DNn S ) i . 



WRITE(P'FMX2'TlMELAS 
TIMESCCLOCX,SINCSLAa 
>^RTTFfP[nPl3 ^FMx3fS l 



THL»MINUTES»a£CCNOS); 
THL»'^INt;T£S*SECQNDS); 
^^CSLASTHL rM i NuT |:, S^SFCQNn , S) ; 



00799000 
00800000 
OOflOlOOO 



00802000 
00803000 
Q0904U00 



ENOii 



END ; 

end; 
hf hatimf 



XQF CLOCK 



PROCEDURE PRINTARRAYRCWCPRTLOCmNx)/ 

begin 



VALUE PRTuOC^iNXi 
INTEGER PRTLOC^INX; 



00805000 
00806000 
QQ807Q QQ 



00807100 
00807110 
0Q60712Q 



INTEGER LDC»SI 
BOOLEAN TOG#C0 
LABFI, AfiATNi 



2e; 

msave/Dblsave; 



00807130 
00807140 
QC 8 Q7 1S Q 



STREAM PROCEOU 

BEGIN LOCAL A, 

^ SnaLlNEi 



RE fixlinE(l1nE,1i\x); value H^i 

b; 

4CSi;sSj + a>> _____^ 



00807160 
00807170 
00807180 



32(IF SC« 
AlsSn Ol 
SI twI.flC T 



" •♦ THEN JUMP OUT 
i«A; DStsLlT'H"' A 
NX; n Sl g4 D ECJ B»g 



ELSE SIi»Si + Ui 

»*Dn 



00807190 
00807200 
00607210 



■SMJX 



dij=a; ds 

D5;s3LlT'' 

FIXLINEJ 



:»3 fill; ui»s6; 



00807230 
00807240 



Jl 



IF TOG»»BOOL£A 
OISPLAYCPHTLOC 
TNX t»ABS (I N X?; 



NdNXf tnil) THEN 

*true); 



LZ-asjCL 



00807260 
00807270 
080727 5 



comsave«*cqmmon; 

cgmmonisfalse; 

dbl5Ave;=doi)Blespace; 



00807280 
00807290 
00807295 



doublespace:«t 

IF PRTLOC GEO 



rue; 

129 AND PRTLQC LEw 



prtmax then 



00807300 
00807310 
00807320 



SI 



'"I 
■srJ 






46 
47 
•8 
«9 
50 



IF PDATADESCCPRTLCC'LGC) THtN 00807330 

IF (SIZE:=LCC, ta: 10] ) IMEQ THE-iN. 00807340 

)>j IF TQG THFN PR iNT f L Or ; =1. Or . CF t M 1 K f M AX CQh # I QC-^S I 7 (• ) ^ F L SF Qna07^Sn 

BEGIN 00807360 

' DlSPUA^IT(PRTLOC»TRUF#PRTLQC!»LOC.CFf INX); 00807370 

FIXLTNFtt TNFtTNX); _^ naBU7^Rn 

WRITECPCDBL]»lb*LlNE[*J); OOB07 390 

T0G:=TRUE; 00807400 

— ^ — fin AGA I N? ^ ooao7aio 

end; 00807420 

co«mon»*comsave; 00807430 

^ nhuRLFSPAcrispRt savL; nnB07n^'=^ 

END PHINTARRAYROW; 00807440 

DEFINE PRlNTARRAY(PrtINTAKRAYl)s 008074S0 

PRINT ARRAVRnt^C PR INT AR H AYW l )»/ 00807460 

DEFINE PA«PRlNTARRAY#,PARQWsPRINTAHKAYROh#; O08U7470 

COMMENT* THE FOLLOWING PRijCEOUHL IS INTENDED TO BE MODIFIED TQ SUIT 00807460 

INDIVIDUAL USER DEBUGGING REQUIREMENTS. IT ALLOWS AN ARRAY, C)DbQ7tH7 

'* . EITHER 1 OR 2 DIMENSIONAL* TO Bt: Dli^PLAYED KITH A MNlMlM OF EFFORT, 00807484 
IN GENERAL* A 3 CARD PATCH IS NECESSARY TL iHL ANALYZER: ONE CARD IQ 00807486 
DEFINF AN F L FHFI^T I N "PHT S ", 5 KJ UFNLL # 00 1 ? i 0, AM H HFH Tn MAKF Am g f^ TH YQOao7/iftfi 
IN "FlLLlNFO'SSEQUENCE #00165000' AND A THIRD TO CALL BELOW UN 00807490 

♦'PRINTARRAY"(0R "PA«) FOR t DIMENSIONAL ARRAYS OH ON 00807492 

*«PRTi^TARRAYRnw"fQR '♦P/^WOW«»^ mw 3 H T MfNI S T HN ^\f ApW^YS. nnfl07£tq^ 

NOTE THAT THE PROCEDURE "PRI NT JLLEC TLD AKHA YS" H CALLED ONLY WHEN 00807496 

C0MM0N516; 00807498 

PROCEDURE Pht l NT . SF LE CTEDAHRAl iJ ^ . nn8(i7snn 

BEGIN 00807510 

INTEGER i; 00807515 

TF ntlMP TABLES THEN nnHn75gn 

BEGIN 00807530 

WRITECPCPAGED* 00807540 

TF OFX THEN PA(LIjqW ^ nnac7ssn 

PACMEMASK); 00807560 

PACQTIMES); 00807570 

PA( STAT ION >{ 0oa07'^75 

FOR IJ=0 STEP 1 UNTIL 15 DU PAKLJ*n ST AT lUN* U > 008U7580 

end; 00807890 

nuMPCESSPnOL^ ^ onaQ7flQg 

END PRInTSELECTEDARRAYS; 00807900 

BOOLEAN BAOCOMMENT; 00808000 

rOt^MATCOMNTPARC"— "PARITY ERROR OCCURRED IN COMMENTS BLOCK. ..*>) ; 00809000 

PROCEDURE load; 00810000 

BEGIN 00811000 

-^ LABEL EOT; ^ ^ . ^____^ . 00812nn'ii 

LABEL EF'PRMGPAh; 00812010 

LABEL FLAG, PAR, BADTM^IGNOREPARJX' 00813000 

— F O RM A T 8 A 0E0F("*-- I NVa L IQ£ 1i 1F AFTER BLOCK » "tI2)* . n pftizio oo 

PRTFlLEC'PrtT FILE U8Eb IS ", Al , A6 ,♦'/", A 1 , A6, X8 ) , 00814100 

PARERR C IRRECUVERaQlE PARITY IN BLOCK # "M2), 00815000 

F L Afi E RRC"---FLAG BIT IN Wf l H i T ilHf ] UF Bl OCK # " , il?)> 00816000 



18 
19 

I 20 
21 
22 

1 » 
24 
25 

, 26 
27 
28 

I 29 
30 
31 
32 
33 
34 
36 
36 
37 
38 
39 
40 
41 
42 
43 



" Sitss; dI!sD; 008<:0000 

'' 16CDS»*32 wDSj; 00821000 

"* FNO mover; ona^^nnn 

*' STREAM PROCEDURE GLTCOMMUNC OUmMT^N ) ; 00822100 
1 BEGIN LOCAL X*Y; LABEL X I T' Hi f, GETNUM I 0O822110 
■ Qll ^Nf nSt»aLTT''*Q0O00Ql"J aI;;>COMMri 00822120 



U7' 



ARRAY AtOl332]l 008l7000 

STRIAM PROCEDURE MOVERCS»0)i 00818000 p| 

BEGIN ^ .. — ■'■ ■ ■■ •- ■'• ■■^- ■''■■■■ ■ ■'■' ■■: ■, ^..■. .,„■• ■. '■ • ■.: 008190 00 . _ 



LI 
F,? 



h 



1 11 

12 
13 

I '* 
IS 

16 

f " 
18 

19 

I «l 
21 

22 

f 23 

24 

26 

f 26 

27 

28 

I M 
30 
31 

I « 
33 



34 

I K 
36 

37" 

39 

40 



I 41 
t2 



45 
46 

I «7 
«8 
49 

I 50 



52 

I 53 

54 

56 
I 56 



7(20(IF 
IF 

__ U- 



S C = f.' C " 



FHF.N BEGirj si»=si + i; 
Then blqih siissi+i; 

HE .1 N J U MP J UT , 2 TQ rilT 



tit. at 3 1 1 ?,b !■«• 1 



END ELSE SI»sSI+l END £CSE5It«S|*i>>l 
WlTlt*iCTF Sra"^" THFIM JllMP OUT TO fiF TMtlM Fi «;F «;T iaSl* 1 W Rn 

getnum:si:=si+i; 
DiisLOC x; 

lOd F SC = " " THtN 



00ail2l30 
00(3^2140 
006^^2 3. '30 



00822155 
■ 00822160 



sp'Sifi i;LSE JUMp, ,Qur?; 



00B22175 
00822180 
00gii2l90 



5(If SC GEO "O" THEN IF SC LEq «9« THEN 00822200 

BEGIN TALLY J*TALLY+li 0S«*CH« END EtSE JUMP OUT ELSE JUMP OuT)i 00822210 

YigTALiYf ^ y^ — ■' .'^■■■' ■ •■■•■• : : ^ . QnSi>?2?n 



si:=Loc x; 

Di:=Ni 

. D$ . :=Y n ci ; 



XITt END GETC0MWON> 
INTEGER i; 
ALPHA NltNZ; 



00822230 
00822240 

nn62?2'in 



COMNT»«BADCOMMENT;sFALSEi 

IF RELOAD THEN 

FOR T;=n STEP 1 UNTIL 63 [li'J 



00822260 

0082 300G 
OOflgaiOQ 



ONI (iCKf MrArnj,Rgw**] ),; 



IF MULTI THEN 

READ REVERSE{l'DUMP#20,COMMTC*])Ct?ADrM:iGeAR3; 

TF FALSE THEN IfiPAS iRADCRMMENT : sTRUE t -^ 



00824000 
00824100 
Q09ii4n0 



00824200 
00824210 
00824220 



FOR IS-0 STEP 1 UNTIL 63 DO 00625000 
BEGIN 00826000 
IF MU L T I THFN R EAD HFV E H^EC MOUMp> 5 V^' A T * ] H fl AD TH t P A RI E LSE 008 ^ :6990 



READ{M0UWP*^33*A[*nCtiADTM»PAR]fX 

IF FLGBIT(A) THEN GO FLaQ ELSE 

T F Mnnn M r fl r 7 . f 3 3 1 3 1 u ai^o y Rom e am f ik t o i . f i ti p 



THEN 



00827000 
00828000 
0Q82900Q 



BEGIN 

MovER(Ain/M[Ai:o],RutN,o]); 

LOCKCK'UCOJ .R0Vy,i*3 U 



END ELSE IF ACO] , C 3»53«0 THEN Il»I+7i X 
COMMENT ONE BLOCK IS WRITTEN PER ABSENT MODI 



00830000 
00832000 
0Qfl: J 2l00 



ENDi 



T0MFID«=M0UMP,MF 10/ 
TDFIDJsMOUMP.FIO; 
FII.,fTYPF} = IF t^n^jMP.TYPI-T. 



008 3 3000 
00833010 
00834000 



IF NOT MULTI THEN 
IF FlLETYPEsfTAPE^* 
IF TnFTn .C30tlB3«t 



f2 Tfl£;N "TAPF" Fl.iiF "DISK"/ 



00834050 
00634060 
006J407n 



AND TOMFlff NEQ THEN 
THFN ELSE MULTI rgTRUFl 



IF REPEATING THEN IF TDF 1 D . t 30 S 18 ] = i 

ELSE CLDSECMDUMP**) ELSE 

IF CAUXTYPEJ>Ar&3.t3»5 J)gQ THEN 



THEN ClUSE(MDUmP) 



00834075 
008 34080 
Q Q6 J 4 Q85 



IF F1lETYPE»"TAPE" THEN 

READCM0UMP#2C>CUMMT[*i)tEOTllGN0REPAR] ELSE X DISK 
M0vEtAfS13l>CnMMT.gtni 



00834095 
00834097 
Q0 8 J 410Q 



IF FALSE THEN IGNOREPAR « B ADCOMMENT*TRUe; 

coMNT Is true; 

GETCOMHQNCCQMMT^NI )> 



00834200 
00835000 
QQ8351QQ 



IF Nl 6EQ THEN COMMON»»BOQl£AN(M ) ; Mt«Ci 
IF MULTI THEN NQMOI*TRUE ELSE 
READfHDUWPCNQT)CEQTtPAR3J ^ 



00836000 
00837000 
Q08 3 7Q 50 



IF FALSE THEN 

BEGIN 

EOT J CLDSE(MCLMP); 



00837055 
00837095 
00837100 



nomoiptbue; 

ENOi 

IF COMMON QR RELOAD THEN 



00837200 
00837300 
00838000 



00838010 
00838100 
00839000 



48 

■19 
fiO 
CI 
S2 
xl 
54 
'jS 
t6 

nl 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
IS 
16 
17 



19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 "^ 

32 

33 

34 

35 

36 

37" 

38. 

39 

40 

41 

42 

♦3~ 



45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 



ELSE 
BEGIN 
IF PRT12 



TH EN Rk A DAKRAYC3fl»;?Lri7FHn[ *1>n) f:L.?F 



SPACE (DISkM)/ 
READARRAY(NAHESIZE»NAMtt 
RF AH ARRAY fMAMS5T7F^NAMSt 



*]*PRTbASt); 



READARRAY(INA^^EbIi:E*lNAMt.[* J»03; 

RtADARRAY(INAMSSUt»INAMSl* J*Q); 
CLOSECDISK); 



Nn»DXSK,MFICi N2:*DlSK.FIDi 

WRItE(PRTNAMEr*i»PRTFILE»M.U!6J,Nl*N2.t6l63#N2); 
END? — _ 



IF RELOAD 
BEGIN 
MAXMQD{s7; % 



THEN ELSE 



WHILE NOT MOCONtMAXMODl 

MAXCOR«*4096x(MAXMQO + n-l 
IF COMMON THFN ELSE 



MAXMQO jBKAXMOt)-U 



BEGIN 

PRTMAxtsPRTBASE+NAMESlZE- 

:nt^ax? = tnamesue-3,; 



1; 



JJ 



FOR ItsPRTBASE STEP 
NSNAMEtlUPBTpASE; 
FOR UsQ STEP 



1 UNTIL PRTMAX CO NSNAMEtHlB 
1 UNTIL INTMAX DO I SNaME [ 1 3 ;» 



ISNAMEt n+FtRTBASE; 
FIXDEFINES; 

SETUPXNAMEANCXMAMS. 



IF MYSTaCKAOR LSS THEN 
IF C0NTR0L0ESCC7M) ThEN 
IF x.r.FmQ Aisin T »«T.rr gf( 



% LETS USE IT 

% CHECK FOR MSCW IN CELL 7 
THFf^ ii. ASSUME VAt rn 



mystackadr:=i+3o; % may neel more THAN 30 



end; 



END. 



IF FALSE THEN BEGIN 
BADTMiWRlTECSPO»BADEnfW)l Q 
PAR.' WRTTEfSPC.PARFRR>T-t-l) 



EOPHOG; 
; ^ »0 EC P RQ fi/ 



flag: WRlTECSPO^FLAGERRf I-H 

END load; 

PRUCFOU R E C HE CK PR TF lLF/ai 



)/ ^^C EaPRGGi tND> 



XSIGNALS USER IF MCP/PRT FIlE *MIgHT* BE THE WRONG ONE 
BE<5In" • 

HEMlflG^fYl'/tl , ^^__ 



REAL mytype; 

LABEL bad*maybe; 

D EFINE CHE CKF ORL ABE LU E SCRiPTC )R- l F 



IF OESCRIPTQRfLQt»I*TYP) A 
DEFINE CHECKFORPROGRAMDEScRlPTORa 
FORMAT BADPRTf**— -YOUR MCP/PRT FI 



LUC LbS Q THEN GU BAD ELSE 



00640000 
OOti^ilOOO 

nntj'^joon 



00844000 
00845000 
00646000 



00847000 
00846000 
00849000 



00849100 
00849200 
00850000 



00850100 
008b0200 
O B5 1 00 



0085(2000 
006&3000 
00854000 



00855000 
00856000 

00657000, 



00858000 

00859000 

-OO66OOOO 



00861000 
00662000 
00863000 



00863100 

00863110 
0Q663l?Q 



00863130 
00864000 
0Gfift41C0 



00865000 
00866Q00 
QQ8 07Q 0Q 



00868000 

00869000 
Q0870Q00 



00871000 
00872000 
QQ873QQQ 



00874000 
00875000 
008/6000 



ND TYP*=MYTYP£ T^EN ELSE 60 MAYBEi; 00877000 
CHtCKFORLApELDti>CRlPTaR#; 00878000 

LE is KRDNG..."J# 00879000 



INCOMPATC*'---MCP/PRT FILE NOT COM 

DEFINE ERRMESSCERRMESSDsbLGlN WH 

W RITE t PrPAGFJ fE RRME 



PAIlBLf V^ITH MCPS PRT IN MEMORY,,.";; 00860000 
ITtCSPC^ERHMESbl j; 00881000 
SSIJ END»;% „ 00882000 



MYTYPEI*"76"; 

IF (LOCI»NOTHJNGT000) NEQ 

CHSr.KFnRLAREtnFSCRT PT ORf 



THEN 



00883000 
00884000 
00665000 



if clociastackoverflqw) neq then 

chlckforlabeldescriptcr; 

if c.lnc»«rfturn) nfs -0 th| 



ie;^- 



00886000 
00887000 
00888000 



CHECkFORLABEUOESCRIPTOR' 
MYTVI»EI««75"; 

IF CLOCI«niRECT0RYBUIUDER)aa THEN I.UCtgrt; 



00889000 
00890000 
00 B 91 OOP 



|47, 
4M 



52 

a 

S4 



10 

11 

12 



13 
14 
IS 



16 
17 
18 

19 
20 
21 
22 



24 

2S 



26 
27 



28 
29 



» 

31 " 
I K 

33 

34 
I 35 

36 

37' 



40 
I 41 
42 
43' 



45 
46 



18 

49 



51 

52 

I i3 



S5 

I 56 



checkfokprugramoeiscriptur; 

IF FALSE TH6N MAYBE:BEGlN LRRl^E SiiC I l\C-OMP AT ) ; PHTCOPt." = l 
IF Ffli SK THFN RantRt-fiTNi FR RMFSS f R AnpRT -> . Pinrnnp;;? fKp; 



LNDi 



END OF CHECKPRTFlLEi 
PROCEDURE DUMPMCPSPRT; 
BE ti l N ^ 



FORMAT HDRCX42*"D C M C P S PR T'V 

XH2»'*' ----- - - -"///* 

2("PRT"* . X5/"f^0NT(;:NT . S**fXl0. , f"NAH£'% X Saj/) < 



FCXe^^MEMORY MOUSs 






INTEGER U0C*N; 

LABEL exit; 

IF UUWPCES.SPOOLQNLY 



IF NOT COMMON THEN 
BEGIN 
CHF.CKPRTFILEf 



THEN uaNTDUMt^RTtgTRLFj 



IF NOT DONTDUMPRT THEN bEGiN OATImE> WRl TEC F'COBL J ) ENDi 

PRINTMCPUPTIONS; 

IF nONTDUMPRT THFN £L^E ^ 



BEGIN 

WRITECPtOBLJ^HOR); 
FOR inC;aAr.Tt,lA|PRTRAftF 



STFP 1 liNTli PRTyjAS^ DC 



BEGIN 

WRlTE(LlNEC*]*PRTrrEM*aCTML(LUC)/OClALChinALf (LOO)* 
0CTA t C L OMA U F( l,.U cn« Q CT A LCK? = X . SNAHE[ U0 C 1)» 



nCTAL(HIHALF(N)),GCTALCLOHALf(N)J)J 
MOVE(XNAMStXNAMEaOC],CF3#LiNEC43>XNAME£LOC3,FF); 
MnVECXNAMSf VNAMFCKn.rF 1^1 INF 113 1 BXNAMFfNl.FFl i 



WRITECPflb^LlNEC*] ); 

IF DONTDUMPRT THEN GD EXIT. 



fnd; 



WRlTECPi-DASHES); 
FOR L0C:*PRTBASE+1 
BFfllN 



STEP 1 UNTIL PHTMAX 00 



wRlTtCLlNEl*],PRTlTEM,rjCTAL(LUC) AlCrwLCHiHALFCLOO), 
OCTaLCLDHaLFCLDc ))#OC;TaL(N»sN53NaMl[LOCJ )» 
PCTAICHIHAI F(Nn^rj CTA La QHALF(Kn? / 



MUVE(NAMStNAME[LUcl,eF]*LlNEt*3#NAMEaOCXiFF)* 
MOVECNAMStNAMEEN3,CF]*LlNeC12 3*NAMEXNJ,Ff 3f 
WRITE(P#l5*LTKFr*nj ': . ^" ^ ^ .: ' 



IF DONTDUMPRT THEN uO EXUi 



end; 

EXlTi 



nextpase; 
end; 
end; 



WR1TE(P[DBL]»F*F0R N:sn STEP I UNTIt 

ciF modoncn] then n else 10]); 
datihe; 



7 pO 



IF oumpcesspooldnly 

IF NOT COMMON THEN 
BEG IN 



THEN ELSE 



e nd; 



mcpentries; 
getprtentries; 



NEXTPAGE. 



ENO OF DUMP OF MCPS PRTi 

PROCEDURE CHECKMEMOHYLINKS; 
BgGIN % 



ooaviOGG 

006V3000 



00895000 
00896000 
00B9700Q 



ocavaooo 

00899000 
(J0 9U00Q0 



00901000 
00902000 



00904000 
00904100 
00904500 



00905000 
00906000 
00907000 



00908000 
00909000 
00910000 



00911000 
00912000 
O09130O0 



00914000 
00915000 
QQ 9 1 60 



00917000 
00918000 
Q 0919Q QP 



009^:0000 
00920100 
00921000 



00922000 
00923000 
00924000 



00^*:5000 
00926000 
009 ^ 7 00 



00 926000 
00929000 
00930000 



00930100 
00931000 
00931100 



009320OC 
00933000 
00934000 



00935000 
00936000 
OQ937000 



00937500 
09 3 8 000 
Q Q9 39QQ Q 



00940000 
00941000 
00942000 



00943000 
00944000 
00945000 



'1 



4a 

50 



54 
55 



1 7 



9 
10 
11 
12 
13 
14 
IS 
16 
17 
18 



19 

20 

21 

22 

23 

24 

25 

26 

2' 

26 

2S 

30 

31 ~ 

32 

33 

34 

35 

36 

37 ~ 

38 



40 

41 

42 

43'^ 

44 

♦5 

<6 

47 

•8 



t9 
50 
51 
52 
53 
54 



55 

b6 



BOOLEAN 
BOOLEAN 
BOOLf.:AN 



zebok; t^EAL vo; 'x. 
mstartok; real vkstakt; % 
imowhaparoumd; 



GOV 



46000 
47000 
47100 



REAL LINK,VLINK*PREVLINI\^ 
INTEGER AVAILN'AVAILT*AVAILM; 
R nnL F A N PRO C FD UHE L I N KOK ( wn h D ) i 



009 

oov 

009 



48000 
49000 

^onnn 



VALUE wqrd; % 
REAL word; * 

LINK.fJKisWORD. [3?6J<TYPMA>^ Al\l) % 



009 
009 
009 



51000 
b2000 
ti300U 



WQROf C9J61s:MlxMftX 
WORDf C15t33«0; X 
FORMAT RANRFrxq."PRTMARY 



AINU 



L jlMKS FROM ",&ti." TO 



ARE OK"). 



009 
009 
009 



54000 
S5000 
56000 



FC0RE(A5»" s 
'% MAX CGHE 
BADCXI3*A6f" LIM 



" > 2 ( U ' X 

" / A 5 » " 

it_Al 



BADPRlMARY(X8i'"HRlMARy LiN 

AVLBADCX8*"AVAILABL 

. AVl,(X fl*"AV AlL A RL F L 



n*X6r"CaKE"»xe;."FACT0R B "*F4.2» 
C " M b * " r% " ^ U S 1 N G '% A 5 ^ •' C " * 1 5 * " ) " ) * 
,"M5,>," I.'i,) NUT nK*')» ■ 



009 
009 

no 9 



b6l00 

bono 

'^7000 



K AT "*Ab#" IS NOT 0K«)# 00958000 

E aiQRAGE TOTALS DO NOT CROSS CHECK" )' 009^9000 
INKS ARF OK. TUTAi ING"* 00960000 



INThCiER N 



I4,"CDEC1MaL) a 
") k^JRDS UP TO 
t»m; 4, , 



RtAb or •%Ab#"t"*ib^ 
'VAb*"C"i.I5,": WOHOS EACH")* 



009 
009 
0Q9 



6100C 
62000 

630CQ- 



DlSPLAY(0»FALSE); 

OISPlAY(MSTART»FALS£)J 

01SPLAYCMEND*FAI...Sfc:)j 



009 
009 



6^000 
65000 



009ft6000 



DISPLAYCAVAIL*FALS£); 
IF OPERAND(CCHE'T) AND 
HFGIN 



T.Cl:3]sO THLN 



0C9 

0G9 
9 



67000 
67100 
67110 



WR1TE(LINE[*3*FCDRE*UC 

OCTALCUOHALFCCDRE 

OCTALCf N»sT.CFx64 



T AL CCDRE)* OCT AL(HIhALFC CORE))* 

))»T.C4n43/lOO* 

).CF)»N» : : 



QCTA 
WKITECPCD 
ENQ ELSE 



LC CN:3T.rF X64 
BLJMb*LIN£[* 



) . C F ) , N ) ; 
3 )i 



009( 
00 9 < 
00967ia0 



•67120 
'67130 



DISPLAYCCORE* 
ZEROKJaOPERAN 

vn . ri8 23a 



FALSE); 
DCOfVO) 

4 



0C9< 

009( 
009^/170 



'67150 
'67160 



AND 
AN D 



009 
009 
009 



67180 
68000 
69000 



V0,C03S15]=0 

V0.FF=(MA 
VO^CF GTR 



AND 
XLNKJ=MAXCPR-2; ANU 
1021 AND VO.CF l,Sb 



4096 AMJ 



009 

009 

JIiL9 



/OOOO 
71000 
r^QQQ 



OPERAND( V 

MSTARTOKImOPE 

VMSTART.r 



C.CF.T) AND L 
RANO(MSTART*V 
1 }353aO 



INKOKCT) AND l.FFsO; 
MSIART) AND 
AND it 



009 
009 

_aii9 



72400 
7 3000 
M QOQ 



VMSTART G 
IF LNKSOK{=MS 
MlNl„NKtBlINK:sIF MSI 



TR 1023 AND V 
TAHTOK OR ZER 
STARTQK 



ELSE IF MSTAR 
IF ZEROK THEN 
M L NKSOKI ^ MS 



TOK THEN VJUST 
VO,CF ELSE 



MSlART LSS 4096; 009 

OK THLN 009 

AINU /t,ti[3K THEN M Aju C VO. CF> VMSTART ) 009 



ART ELSE 

iNLMklg) tMKtgVMSTART J % 



009 
009 
009 



75000 
76000 
76100 



76200 
76300 
77Q Q0 



avalnkokjstrue; 

NJsTl«»0; 
rtH lLE U NK SQ K AMD MA XL NK>PR E VHNK U U % 



009 

009 
009 



78000 
78100 
79000 



IF 



LNKSOKt»CO 
L 



PERAND(LINK*VUiNK) 
INKQK(VLtNK) 

NK.FF"PR£VLINK 



-V44 



AND 
AND % 
AND 1 



009( 
009( 
00982000 



'80000 
'810O0 



(IF LINKsMAXLNK 
THEN VHNK.CFs 
ELSC:: VLINK.CF> 



% 
U'^K))TH£N 



009 
009 
009 



83000 

84000 
65000 



BEGIN % 

prevlink»=link; % 

LINKlaVLlNK.Cf ? » 



009 
009 
Q09 



86000 
87000 
880 00 



41\ < 



>r 



IF AVALNKOK THEN % 

IF BOOLEANCVLlNK.Clt 1] ) ThEK % 

TF AVALNKOKisMAXl,NK;>PRE;vUINK 1hl,,fN 



IF AVALNKOK ««(aPERAND(f*KEVLlNK + l*VLlNK) 
VLlNK.tm^JaO) THEW » 



AND X 



ooydyooo 

009VU000 



M. 



end; % 

NtJT ZFRflK 



AVA1LN»SAVAILN+1> % 
AVAILT«=AVAILT+VLINK.FF> * 
AVAH.M<«IMAXf AVAlLM/VLINlS.Kt-: ,).? 



00992000 
00993000 



0Q9yb000 
009V6000 

Qfl9V7onn 



12 
13 

I '^ 

IS 
16 

18 

19 

[ 20 
21 
22 



IF LNKSQK THEN 

OCTALCMAXLNK)) 

RFftTN li 



THFM W«T TFrP.HAnP BlMABY^n Yi 



WRITtCP'HANdL' IF 
ELSE 



^ERCK THEN' C EUSE OcT AL C^ INLNK ), 



00998000 
00999000 
00999100 



IF SOMaKF:»PREVUlNK>MINuNK 

BEGIN % 

WRITECP^RANGF.Ig 7I::HUK TflFN 



GCTALCPREVLiNK))/ 

WRITECP*BADPRIMARY*OCTAL(LIi\.^) j;* 
ENn; % _^„_„___ 



THtiM 



Q El^E QCTAHMlNLNKJy 



OlUGOOOO 
OlOOlOOO 



01003000 
01004000 
01005000 



MIN8A0t»UINK; 

PREVLINK»»Oi * 

LTMOaMAVI MK i % 



01006000 
01007000 
QlOt^aQQC) 



\ 23 
24 
25 

► M 

27 

28 
I 29 

90 

31 ~ 
) 32 
33 
M 

I K 
16 

37 ~ 



WHILE aPERANDCLlNK'VLINhi A(\L) 
LINKOKCVLIN^) AKD 
VtINK , CK s pREVL l NK Ahl.i 



01009000 
01 01 0000 
01 oil OOP 



LINK>vHNK.FF 
BEGIN % 
PRrVLINKlaLTNKi 



00 % 



01012000 
01013000 
1Q1< I 000 



LINKJaVLINK.FFi % 

end; % 

TF PRFVLU'KgQ THEN 



01015000 
01016000 
01017000 



MflXHriU;sMAXrf1R.H t.i JM^ % 



writecp,range,octalcmaxlnk),uctal(max8auj*prevlink)); 
write(p*baoprlmary*octal(likk))ix 

SOMnKRiBpRFVl |NK>0? __^ 



oioiaooo 

01019000 

Qto<ionoo 



end; % 
nqwraparqunussTkue; 

TF AVAl,NKnKUcnP£HANDf,AV4ILyPREVLlNK) 



01021000 
01022000 

01023000 



oo 



39 
40 

^41 
42 
43 

\ U 
«5 

( " 
•8 

49 
51 



prevlinksmaxlnk+1 And i 

0PERAN0{PREVLINK#VL1NK) ANO % 
VI TMK.n tl7lkn Aun % 



Ah.D. 



0102AOOO 
01025000 
01026000 



VLlNK,FFs32767) 

BEGIM % 
WHILE AVALNKHK AND 



THEN * 



01027000 

01028000 
Q1029Q0Q 



NOWRAPAROUNO AND 

(IF LNKSOK THEN AvAiLN GTR N ELSE TRUE) AND 

(iF LNKSQK THFN AVATLT fiTH T FLSF TRUF^ aNH 



OlOjOOOO 
01031000 
Q1 Q 3 2 00Q 



CIF LNKSQK THEN 
IF NOWRAPARUUNOi 



AVAILM QLQ M ELSE THUE) DO 
= (MAXCah GTH L1NK«>VLINK.CF 
AND i, IlNlS GTH 0) THFIN. 



01032100 
01033000 
Q1 Q34Q QQ 



52 
S3 
54 
55 
) 56 

5- 



IF avalnkok:»coperandclink-i#vlink) ano % 

LINKOK(VLINK) ■ AND X 
BOnLFANCVI INK. [inn : AhiP % 



01035000 
01036000 
0103610,0 



UPERANDCHNK*l#VLINh) AND > 

vlinkbPrevlink and * 
opfranrultnk^vltnk) and % 



01037000 
0lQ3d000 
Q1Q39OQ0 



VLINK»[1 Jl7]sO 
VLINK.Cf XLINK) 

arsTN % 



tkHQ % . 
THEN % 



01040000 
01041000 
01042000 



01043000 
01044000 
1 045Q OQ 



,"1 






iiiii 



rf 

2 
3 
4 

S 



• 
• 



7 

8 

9 

10 

11 

12 

13 

14 

16 

16 

17 

IB 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 

44 

15 

46 

47 

48 



49 
50 
51 
52 
53 
54 
55 
56 
57 



N:=N+i; 
Tt=T+vL 
Ht=HA ,xC 



INK.F 
Wf VLI 



f; % 

MK.FF ); 



PREVLlNKSsUNK/ % 

end; % 

IF NOT AVALI^iKDK THEN WR ITEC P^BAD# "A V ALBL"«QCTAL( L INK ) ) ELSE 



IF LNKSOK A 
NOTCAVALN 



KOKJs 
LNKSOK AND 



AVAILKs 
AVAILTa 
AVAILM» 



N AND 
t AND 
M AND 



VLINK.CFsMAX 

WRITE{PMVL*N»UC 

TABLESI QCJ = IF LNK5U 



UNK + n THEN wNlTFCP»AVt.6AD) 

TALCl )' I'OCl ALCM)*M;> 

K ANU UPLRANDCH/^XI,NK*T) 



ELSE * 



END Else writec 

WRITE(PCDBL3)< 



THEN 
P#BaD 
.1 



T.FF ELSE -U 
#"AVALBL''#aCTAL(MAXLNK+l)); 



end; X 

ARRAY MIXSTK10U3]; 

PRn CEDURE GETSTACKSFRQHTHFHEU; 



BEGIN 

INTEGER I; 
TNTFGER mi: 



INTEGER M; BOOLEAN 

FORMAT DUPBEDCX8»"D 

" fC'HF 



b; 

UPLIC 
CK BE 



ATE BED ENTRY 

D. jjiT aUuHESS ! 



FOR MU*",I2» 
■ ">A5» . 



" CTHI 
REAL V»TYP; 
IF OPF R ANQCJOR N 



b ENTRY IGNOf<ED)"); 
U Mt V.lQRNi ma THEN 



IF VJ0BNUM.[1:h3=0 AND 
VJ0BNUM.ti!|7: nsO AND 
P DATADESCf H FU fVBFn) AND 



VJOBNUMSVBEO.CeUOl THEN 
BEGIN 
VHFni'^VflFn.CFi 



JX- 



FOR I»=0 STEP 2 UNTIL VjUBNLM DC 
IF DESCRlPTUR(VbED+l'V*TYp) THEN 

B8w,(CMIXtsV.[6l^UTYp[<i3}45;.in GTR 



-0- 



AND (MJsMiXbTKCW 
WRITECP;.DUPBED*MIX»OCTAL 



1X3 ) NEC 0) 
(VBED + D) 



THEN 



BEGIN 

bedstk« = ma'aStk:=maxstk + i; 

■ MiX S TK E Hl xJ raBE O . S TKi 



STAX 



tBE 
V.F 

its. 



DSTK3 

n an 



I'M' 



01 & 



(REAL(MIX>0)U/5^7J1]; 



end; 



end; 



IF B THEN 
ENO GETSTA 
PRQCEP UR K 



WRITC<P[DBL3); 

cksfromtwebeo; 

O uMPM £MO RYANDNQTl:STACK:»(FHaM»TQQJ> 



-B«J 



VALUE 
INTEGE 

N 



FROM,T 
R FROM 



co; 

>to 



o; 



BOOLEA 
DEFINE 
REAL I, 



N BEDD 
T = LIN 



ed; 

KTY 



PE#; 



U46000 
U47000 
U<< 60Q0 



049000 
OiOOOO 
051000 



ObllOO 
0^2000 
ObgAOO 



053000 
0541000 
055000 



056000 
057000 
056000 



059000 
060000 
610 00 



062000 
063000 
^6^000 



065000 
066000 
067000 



068000 
069000 

o/'Qfinn 



071000 
072000 
073000 



07<t000 
075000 
076000 



077000 
078000 
079000 



080000 

oaiooo 

o.agoon 



063000 
084000 

QflSono 



086000 
087000 
088000 



089000 
090000 
091.000 



092000 

093000 
094000 



095000 
096000 
097000 



098000 
099000 
lUQOflO 



101000 
101100 
102000 



4i;i' 



4j 

'14 

4n 
4B 

il 

48 
4y 
BO 
51 
52 
b3 
b4 
56 



• «l 



>T 



1 

2 
3 
4 
5 
6 
■/ 
8 
9 
10 
11 
12 
13 



FORMAT lTEffXii^A3f " ="> 2 C X4, A5 ) ) / 
REAL R#ADHi.G*LL; BOOLEAN 1NTH*Ut; 
RFAI Xf AVSI7£; 



REAL istackv;boqlean istackqk.irstack; 
BOOLtAN mcpsave^mxnoto; 

nPFlMc uYCim^r-j MVMnTngi 



REAL dcqptstackj.dc(.iptstackv; 

BOOLEAN DCSTACK/DCHIT; 

DEFINE DC«iDCQPTST ACK# >UC\/ = DCfalPTS TACK ygj 



INTEGER N*STK^ 

REM MX; 

FORMAT AVATLflRl.Ffx27^"**** AVaILARL(- SIZE»"» A5*"C '% I5*'M<M, 

USERSTAC'^PRT(X2/'^"MlX = "*i2/" STAC^-PRT")* 

HlXUbE(Xii7,"MIX = ''/l2^xi,A6)» 

■SEnnirTf X2 7."MTxs".i2»" ■S^r,Mf:^T-nl ^.TT^NAHy«M. 



MCPUSE(X27*"«CP--"#A6)^ 

MCPSTACKtX27,«MCP INUEPEKDENT-RUnNER STACK»)# 
TNTARRAVfvyT.WMrPS TNlPhi SC aWRAV'O. 



TABLEAREA(x27*"MCP TaBlES"); 
ARRAY ATPCOJTYPMAX+n; 
NQTPRINTCAI, l.;gTHllE? , 



FILLAREATYPEJ 
IF DATACOM THEN 
BEGIN — 



DC3TACK!sDC GTR 129 Ai\U OPEN AND ( OC DC V : 

AND DCV NLQ U AND DCV,Cl!32l5a 
AN U CDCV^'Oi . V . CF) ( i TR 1, (V3 AND 



0PERAND(OCVi.R) AND R»0 ANO 
OPERAND(OCV-l.Q) AND 0,CV:6]sO AND 
fP r3} /S1an Oft Q.r3t<S1aT7V AMf^ QnC^M} = i; 



END OF LOCATING DCQPTSTACK AFyER MANY ClitCKS; 
ISTACKOK«=POATAOeSC(ISTACK»lSTACKV) AND 
T.STACKV.f fliUn GTH Q AND 



(ISTACKV»«ISTACKV,Cf) GTR 0; 
lNTR:»PDATADESCClNTRNSC,AOR) AnD AOR.FFsO; 
ADR}»ADR.r.F: FTLL ATPt*J WTTH 



"UNKNWN"*"CUOE "-."DATA " >. " I O-Buf' " » 
"ALGFIe"'"IiNQ8UF"*"CUtlFlB'%"lNTSEG"» 



"HeAnFR»."MflTNiT 



tQ","SPACF "."STArK » 



INT n^VSCROlR^^^OPSEr "#'*DlHTOP"#"SPQUT " 

"LA8eLS","JAR ","CIDH0W"#"INQPT "#"INTRNC"* 

''RJ£INP"»''DC0PT "*"DAUQC "y"SHEET "»**STAWRD"» 

3r''"STAWD "* 



"KEY IN "» 
" 3 3"^ 



29"*"DC1'JQ "* 



.M 



»• . " 



3/1" 

39"^ " 



35" r" 
ylt " » 



36" 



37''. 



"^p?#8igt.;i»t^« DENOTES UNRECOQM ZED LINK TYPE 
WHILE FROM<TC0 DO 



1RSTACK:=FAlSeJ 

dchit5=false; 

N:«(L»gMrrRUM,HQW.FRUM.CUL J).Cf; 



011U3000 
01104G00 

01 lu'ionn 



01106000 
01107100 
01107200 



01108000 
01109000 
OlUOflOQ. 



0U12000 
01113000 



01115000 
01116000 

Q1 U7noo 



oiueooo 

01119000 

migoooo 



OU21000 
011^2000 



0U22200 
01123000 
01124000 



01125000 
01126000 
011^7000 



01128000 
01129000 

nil. mono 



01131000 
01132000 

ni 13^000 



01134000 
01135000 
Q11360QQ 



01137000 
01136000 
01 ^39000 



01140000 
01141000 

o u <* u o o 



01141200 
01141300 
01141400 



01142Q00 
01143000 
01144QQQ 



01145000 
01146000 
Q11490QQ 



IF TlaL,l3»63 GTR TYPMAX THEN L . C 3 J 6 3 1 «T » "TYPMAX + i; X BAD TYP01149100 
MXN0T0l«{MXIaL.[9t6J) NEQ O; 01149200 

IF BOQLEANtL.ninj THEN .^ 01150000 



BEGIN 



IF NODUHP THEN ELSE 



AVSlZEt" 



IF OPERANB(FROM+l#X) AND X,Ci»17]bO THEN 

X.FF ELSE -lOOOO; 

WRITECPCDBL3>AVAILABL£*IF AVSIZE LSS Th£N »******" ELSE 



01150100 
01151000 
01152000 



01153000 
01154000 
01 155000 



h- 



1 

3 
4 
5 
6 
I 
8 
9 
10 
11 
12 
13 
14 
15 
18 
17 
18 
19 
20 
21 
22 



23 
24 



25 
26 
27 
28 

29 

30 

31 " 

32 

33 

34 

35 

36 

3?' 

38 

39 

40 

41 

42 

*3 



45 
46 
•7 
48 
49 
50 
51 
52 



53 

54 



56 
57 



OCTAL(AVSlZL)*rtVSlZE)/ 
AVALNK JsTRUE; 
PRINTfFHnM»IF UiJMPAVAlL. iJH 



SM 



NEEDCHECKAVAlLNKS THEN N tLSE FROM+3); 

AVALNK I»FALSE; 

0- ^ 



ELSE 

BEGIN 
aTtaOPERANDCFRQM+l 



JIX 



MCPSAVEI«QT AND fi N£Q AND L , C2» 13 J*4096 AND Q.FF NEQ 

AND Q.CF GEQ 129 AND Q,CF LEQ PRTMAXf 
r)CHIT»aCDCV^U«FROMi ^ 



IHSTACK»» (CUNTRCLULSCC 
R.FFbISTACKV41 ) OR 

.. .. C .CU. NTR L DES C(FHOMf 



FRnH + ii*R) AND 
3fR3 AND 



r.ff-istackv+d; 
if nooump then else 
if m knotq a nd t» 2 a nd 



OPERAN0CFRDM+2#X] 
(CCONTROLDESCCFRC 



ANU X« 
M+i»X) 

Ofi- 



C"BtiBU"&"aBBB' 
AND X.FF30 3 



U!iJ5S23]) AND 



(operandcfrom+3*X) and 
then write(ped8l3#user5 

IF CM X NOTO AND Tal A ND L . C 



XsO AND CDNTRaLDESC(FH0M+4,X) 
TACKPRT'MX) EfcSE 

2 8 n**! AND — 



AND X.FF.O)) 



OPERANUCFRaM + i?*X) AnD 
QPtRAND(FR0N+3#X; AND 
X .[3 > 5 3gO ANU X . f . F H I Q Q 



X.Cl J37JaO AND 
X.L152J LLti 2 AND 

i . ^_ 



THEN WRITECPCDBL3#SEG0l 
IF MXNOtO THEN WRiTtCPC 
ir MXQ ANn f CT«1 AND QT 



CT»MX) ELSE 
OBLJ»MlXUSE^MX»ATPCTJ) 
) OR WCPS AV E) TH EN 



ELSE 



DISPLAY(Q,CF*FALSE) ELS 
IF QT AND Ta7 AND INTR 
AND R»*R»CF>10?3 AND LL tE 



AND UPEHAiNp(ADR + (LLJ=^»t8JlO])#R) 
Q InTMAX then t3£.GIN — : 



WRiTECLINE£*3#ITEM*0CTAL 
MOVEf INAMSUNAME t LL 3 'CF J 
WRTTFCPCDBI l,7>LlKrC*n; 



(LL)#QCTAL(R)*0CTAL(R+«.FF-1)); 
»LINEC43# INAMECLLJ. FF)i 

E N D E L Sfc . 



IF 



(DCS 

L. 

1ST 



TACK AND D 
[2:l]»l AN 
ACKQK 



CHIT J 
DCTsO 
AN D 



OR 

UR r=12) AND 



MXO AND 



IR 
THEN WR 

' l . F...:rRft»!i. 



STACK 

ITECPCDBLl 

gTABlESLOC 



*MCPSTACK) ELSE 
THEN WiRI TE (PCDBL 3 1 TABLE AREA) 



E LSE 



IF FR0M5ADR-2 THEN WRl T£( PC D9L 3 * iNT ARRA Y ) 
WRITE(PCDBL3»MCPUSE»ATP[T]); 
STKis'l; REDDFD;sFALSE? 



ELSE 



WHILE BEDSTK GEO StKt-STK+l AND NOT BEODtD DO 
IF BEDDEOls 
fLLI»STAXtSTK3.CF GTR FROM AMD N GTR LL) THEN 



IF 



IF 

NOT 



STAX 

BEOD 

T»l 



CSTK]«FF*C 
ED AND (I 
2 OR 



then stax[stkj.ff«sfrdm+2; 
rstack or 



CDC 
STAXtMAXSTK 



STACK AND 
l=»MAXSTK + l 



DCHITJ 

3«»(N- 
US 



iXft 



) THEN 
l)&CFRaM-k2)[l8l33ilS3 



NQTPRINTCALL«*NDTPRINTC 

PRlNTCF80M»lf ( ONEMIX N 

OR (N nNORMALCnUF A 



ALL AWD NUT MCPSAVE; 
EQ AND QNEMIX NEQ MX 
Hi-) (fTa7 UH Tsl3) PR 



AND MX NECJ 0) 



(T»l AND MX NEQ 0))) 
OR (NOMCPCODE AND (L.C3U23«64 OR HCPSAVE)) 
_ THEN. .Fft,0,M*.2 ...ELSE.. N).i 



b6000 
b6400 



39000 
59100 
60000 



61000 

62000 
63000 



64000 
64100 
64200 



64300 
64400 
64500 



64600 
64900 

6'ionn 



66000 
67000 
6 80 00 



69000 
70000 

nooo 



/2000 
73000 
M OO Q 



75000 
76000 
/7Q Q0 



raoo 
fsooo 

79000 



aoooo 
eiooo 

a2Q0Q 



83000 
34000 
aSOQQ 



86000 
90000 

91000 



92000 
93000 
94000 



95000 
96000 
97000 



96000 
99000 
^POQQQ 



202000 
203000 
SJlMlSiA. 



206100 
209000 
2ionoQ 



211000 
212000 
215000 



4C,| 



11 
I"; 
16 
4/|< 

ie 

SO 
iM 
b2 
63 
64 
55 
!)8 



• ^ 



w 



» 2 

3 

4 

6 

7 

9 

10 

12 
13 
) 14 
IS 
16 

) " 

18 

19' 
I 20 
21 
22 

> 23 
24 
25 

I » 

27 

28 
) 29 

30 

31' 
I » 

33 

34 
I 35 

36 

37 ~ 

I M 
39 
«0 



42 
43 " 

I ** 

«S 

46 

I " 
48 

49 

I «> 
51 

52 

I w 
54 

55 



MCPSAV£::=FALi*E; 

end; 

— FROMtsMJ 



■MM- 



END I 

notprintcallssfalse; 

nUMf MFMnRV AND NOTE 



STACKS; 



ARRAY MCPR0G[0!255]> 
INTEGER MAXMCPROG^EbP; 
ARR A Y 0U TERB L UCK[C»03;a i 



PROCEDURE 
VALUE 
A RRAY 



INTEGER LIM; 
BEGIN 
INT E GER l ,l i 



SEQUENCE(ARAY#LIM); 

LIM) 

ARAYtO]; 



REAL VJ 

STREAM PROCEDURE MOVEC S^D,032«M32) J 
VAiljF 3? ,M3 ?; : ■' 



BEGIN 

Sn = s; ui:su; 



OSl«M32 

END MOVE i 
TMlTMt 



WDS; 



WHILE (T! = T-l)>C/ DO 
BEGIN 

Hslim; 



LJaCVtaAR4YCT]),CF; 
WHILE ARAYIi],CF>L DO 
M * I « 1 ; ^___ 



IF CL;=I-T)>0 THEN 
BEGIN 
MGVEfARAYrT4n#AKAYLT],L.r:s7!^,J,L 



gNo; 



end; 



ARAYClUsy; 



iay^^i)f 



end SEQUENCE/ 

INTEGER BAOSAVEPRTLOC; 

PRnCEDliRE GFTSnRTAMUl I S TMCPriqG ( a ) ; 



BEGIN 

REAL R; 



VAlI1£ B; BU0|„£AN 13/ 



TYPI 



FORMAT TOTALPRaCSC///"«#* a TuT»*L Qb 
"WERE PRESENT IN HEivioky")* 
BADLnCC//"*** AT LEAST 'N U * " 



"CONTAIN PROGRAM QR DATA 

♦•AS THEY SHOULD...'')' 
Ff Xfl.wpRrSFMT Mf.P PRneFOLjRFSt/y 



*S13^" MCP PROCEDUKES ", 
MCP PRT LOCATIONS DP NOT 



Oliii6000 
QUlflOQQ. 



01219000 
dl2l9j00 

nig?nooo 



01221000 
01222000 

01 223 00 0. 



0122^000 

01225000 
01 2 2 6 000 



0122/000 
01228000 
01^29000 



01230000 
01231000 
01232000 



01233000 
0123^000 
0lii35Q0n 



01236000 

01237000 
ni23annn 



01239000 
01240000 
01^41 



012^2000 
01243000 



01245000 
01246000 
01,247000 



01248000 
01249000 
01250QOQ 



01251000 
0l2bl500 
01252000 



01253000 
01254000 
01255000 



OESCRlPtoHS rOR SAVE CODE ": 



01256000 
01257000 
01257100 



IF NOT 
BEGIN 



"PRT'SX5*"DtSCRlPT0h",Xa' 
B THEN % SaRT/'*l)aNT* LIST 



'THRU"//); 



01257110 
01257120 



IF DESCRIPT0R{ESP8IT'R#TYP) 
MCP80QltMAXMCPROG:«»03«a 

_ <rapi»pr,cF)& 



And TYPs"75'» THEN 



01259000 
01259500 
01259600 



CESP+R,[8:iO]-UCi6;33:i5](i 
ESPBIT[8J30«1O] 

FL.SE MAXMCPROGSg^l? 



01260000 
01261000 
Qi26anQQ 



IF HAXMCPROS NEQ -1 THEN 
OUTEaBLOCKCO]««(PRTMAX+l)&C£SP-U CTF; 
rnR TiaigQ STFP 1 UMTtI PHTMAy pn 



01263000 
01264000 
01265000 



01265900 
01266000 
0126700 



4'1 

4N 



1 



h 



16 
17 
18 



19 
20 



22 



24 



26 



28 
29 



32 



34 

3B 



36 
37' 



41 

42 

43' 

44 

45 

46 

47 

t8 



•9 



55 
56 



IF DESCRIPTORCI^R/TYP) AND 

(TYP = "75" OR TYP = "77" 0« TrP«:"M"J 
R iC FX E SP THLM . 



AND 



MCPROGCMAXMCPR0GS«MAXMCPQaG*l ]J» 
R,CF& 

_ fR.cF*R,[8;in3*i)ciat.^3;i5U 



01268000 
0126^000 



n8;38iic]; 

SEQUENCE (MCPRCG»MAXMCPKU(i); 
£Nn EUS E » L IST ON L Y 



ounooo 

01272000 

ni^7.innn 



BEGIN 

nextpaqe; 

WRTTrcPtFii 



0U74000 
01^/3000 
0127*^500 



sgltogjsTrue; 

FDR Ijafl STEP 1 UNTIL MAXMCPKQG 
DISPLAY(MCPRnGrn,[flSl Q ] ^THU£ .)? 



01275600 
01276000 
012/7000 



DQ 



012/7100 
01278000 
Q12/9Q00 



sgltog»»false; 

WRITE(P»TOTALPROCS»MAXMCMQ(i + l); 
IF RADSAVFPRTi nr NFQ THEN wHI TFf P. RAOLnr. .HAnsawFPRTi nr ^ t 



end; ■ 

END GET SORT AND LlbT 
D E FINE G E T A NDS O RTMCPRDGg 



01279100 
01280000 

01280300 



PRESENT MCP PHiOGRAM SEGMENTS; 



6ETS0RT AN0LISTMCPR06 (FALSE )«> 
DEFINE LISTMCPRQG* 
GFTSnRTANnLISTMCPflOG(TRUE>f ; 



01280500 
01261000 
0l2 l ai a 00 



PROCEDURE dumpmcpsavecooe; 

% SEPARATES & IDENTIFIES SAVE PROCEUUreS & ARRAYS 
BEGIN _^^^^__^___ 



01281410 
01281420 
Ol2Hia36 



BOOLEAN ok; 
INTEGER T*SI2e; 

RFAI THTSPRnflt 



01281500 
01281510 
0l'' e i5 2 



INTEGER I*J*LASTADR*NEXTPRLlfi; 

okjssgltogjstrue; 

LASTADRtsESP; 



01281530 
01281535 
01 26 15 16 



FOR 11*0 STEP 1 WHILE OK AN0 I lEQ 
IF OKI«(THISPRQG!sMCPR0G[I J).FF LSS 
BEGIN . : 



MAXMCPROG 00 
MINLNK THEN 



01281540 

01281550 
01281560 



DISPLAY (THISPRUG,C8» 10 ]*TRu£); 
PRINT(THISPRCG.CF*lASTAUR;sTHISPRQu,FF+1) ; 
IF QK>a(N E XTPR I IG « sMnPhflrif HI l ^ CKl l SS MIN l NK 



01281570 
01281580 
0l2ai«i90 



WHILE 
BEGIN 



NEXTPROG NEC LASTftDS UQ 
FOR J»gl?9 STEP 1 UNTJfa PRTMAX DO 



THEN 



01281600 

01281610 
Ot2fllfi?Q 



IF PDATAOESCCJoT) THEN 

IF (SlZE:5T,L8»10n NtU THEN 

I F CTUT , CF3 = L AS TA U H TH L N 



01281630 
01281640 
ni2flt650 



BEGIN 



01281660 
01281670 

0l?ai680 



DISPLAY(J#TRUE); 
J«»1023; '—-- 



e nd; 



PRINT (T*MlN{LASTADR:sT + blZE»N£.XTPHOGn; 

IF LASTAOR GTR NtXTPROG THEN NEXTPROG I »LASTADR; 



01281690 

01281700 

-0 1261710 



IF J GTR 1023 THEN ELSE BEQIN % A PRT CELL HAS BEEN 
PRlNT(Tl«LASTADR*tASTAORl*NEXTPROQ)l 
HADSAVFPRTLDC;«RADiAV£PflTLQe*li FtyP; 



01281715 
01281720 
Q 1 2 B1 7 25 



end; 
end; 

PRINTC L ASTA p R^M l MNK); 



ZAPPED01281727 

01261728 

Q 1291729 



s<jltogi*false; 
END oumpmcpsavecode; 

ARRAY TNTSPfQlTMAMFST7F«.11« 



01281730 
01281735 
01281740 



01281745 
01281750 
01182000 



47Ji 
50 



54 



• ft 



1 

2 
3 

4 
5 
6 
7 

e 

9 

10 

11 

12 



13 
M 
15 



16 
17 
18 



19 
20 



22 
23 
24 
2S 
26 



28 
29 



31 
32 



33 



34 
35 
36 



39 



40 
41 
42 



•3 



46 

1 47 
«8 



«9 
I 50 



52 

I 53 



35 



INTEGER INTSPMAX; 

PROCEDU«E GETSORTANULlSTINThlKSlCS; 

BE G IN . — — 



INTEGER IMAX/TYP; 
REAL ADR*R*l; 
REAL MIXJ 



FORMAT ITEM(X2*A3#" b",2 C x<* * A5 ) ) * 
HAOINTOC"*** BAD iNTRNbC CO J") # 
F(X8> "PRESENT I MTR I Nbir^'V/ 



"INDEX",X7»*'FR0M'«VX5*^'*THRu"/); 

INTSPMAX ««- I ; 

IF DFRftRlPTnfirTNTRNSr.AnR^TYPl ANfi fVPsHSnW TNFiy 



BEGIN 

IMAX!=AQH.C6!10J-1; 
ADR|gAnR.CFi 



IF OPERAND<AOR#H) 
AND R NEC AND R 
IF lHAX»n THEN ^ 



AND R.Cl »3a JaO 

LE9 IMAX THEN IMAX«sR 



ELSE MlX»s-ll 



FOR l:5l STtP 1 UNTIL IMAX UU 

IF DPERANnCADR+IMO AND H,CF>1Q23 

lNTSPrTNTSPMAXl = INTSP|vlAX + lJ;s 



THLN 



IF 1=17 THEN R.CF&(R.CF+3> CTF & IL8:38:10J ELH 

R.CFS 
C IF CPERAN0CR.CF-1«I 3 ANH : . 



0<(L:=L.FF) *ND 
L<1023 THEN 
H « CF-»L" :i t^ taE K , CF )U S;..i3:i : ? U 



U8J38M0]; 

end; 

if intspmax2c then 



BEGIN 

nextpage; 

OISPLAYC iNTHN.'ir.^TRUE}; 



IF Mix lSS THEN WR iTEtPtDBL 3 ,HAD IKTO 3 

write(p[dbl3#F); 

SFQuENCFf TNTSP.TMTSPMAX jj 



FOR i: = G STEP 1 UNTIL IMSPMAX GO 
BEGIN 
^RITECI INEri^]fITF M^ OCTAL CL; = IN TaPr , n 



JX 



nCTAL(INTSP[IJ.CF)» 
aCTALCINTSPtn.FF)); 
11- 1 NTH AX THEN 



[fMVQllf 



MOVtClNAMSClNAHtCLJ.CFD^LINEC^]* 

iNAMEtLJ.FF); 
WRITE (PIDBL 3 *7,H.. INK I*] )^ _ 



CNO; 

end; 

aCT SORT 



HMTRlNSinst 



fMH 6ET SnRT ANn I TST PBrSENtfUMTRlNS 
STREAM PROCEDURE MO VC ( S^ SP^O^DP* W,C ) ; 

VALUE SP^DP^W^C; 
B EGIN 



Sl»»Sj SliaSI+SP; 

Dii«o; Di»»Di+op; 



END MOVC; 

BOOLEAN PROCEDURE WiTHiNC ARaY* AMAx* ITEM,RESgLT*PLUS ); 
V ALUE AMAXMTFMJ . 



ARRAY ARAYCOl; 

INTEGER AMAX*ITEM»RESULT*PLUS; 



263000 
ii64000 
^8 5 000 



286000 
287000 
?e7iOQ 



288000 
288100 
289000 



2VOO00 
291000 
29?000 



293000 
294000 
29'iOOO 



295100 
295200 
29 600 



297000 
298000 
2990Q0 



299100 
300000 
301000 



302000 
3C300C 

JQ^OOC 



305000 
306000 
307000 



308000 
309000 
310000 



31G100 
311000 
342000 



313000 
3U000 
315000 



316000 
317000 
318QQ0 



319000 
320000 
321000 



322000 

323000 
3240Q0 



325000 
326000 
327000 



128000 
329000 
3 30 OOP 



331000 
332000 
333000 



irfi fN 



334000 
335000 



013,36000 



"'>-i 



• 



>r 

1 

2 

3 

4 

6 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 



o 
Q 



19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ' 

32 

33 

34 

35 

36 

37 ~ 

38 

39 



40 
41 
42 



43 
44 
45 

46 
47 
«8 
49 
SO 
51 
52 
S3 
J4 
55 
56 
57 



BOULEAN found; 

LAistL exit; 

IF AMAX;>n THEN 



FOR I»«0 STEP 1 UNTIL AMAX DU 
IF FOUND«» 
(ARAYCn.rFSlTEM AiMQ ITlH gARAYEIUFF) THFM 



be:gin 

RESuLTtsARAYcnaeuoj; 

— Pi,IJS8gIT£VARAYEn>CF; 



GO TO exit; 

ENO; 

EX I Tt WiTHINl s FUUNO, 



END within; 

ARRAY PRQGS[0J3#0J255]; iNTtGENi PRQWS; 
TNTFGF-H PRnC^QuHK SKRFm[J( AT iP r C ? f VA LUE 



AT/ 



INTEGER AT*F*C; 
REAL LOCI RGW) 

pRncFnuRF niiMPST ACK c i nx ) 



kurwaho; 



VALUE INX; 
INTEGER INX; 



BEG I N 



INTEGER TOS*BCS*SEe^AOR^H^L*PRa#i; 
INTEGER IY; 

REAL v*r; - 



REAL TQSQRIG*X*Y; bOOLEAN rtUUPS; 
LABEL ERROWT; 

LARFi dumpit; 



LABEL SkIPEEE; 

LABEL SQUEEZE»CUTBACK,xiT; 

D E F I NE CD»KQOP S J; 



DEFINE OELTAsbO*; 

DEFINE MAxSTACKi)IZEs5l2#n MAx STACK BELUW 

DEFINE SPFC = BUQI EANC JiT AX T INA 3 . T << ; 1 1 ) 1.,? 



tos we"ll Dump 



BOOLEAN normal#found; 

FORMAT hO(X8»"STACK FROM 
— — ^ TRIT£M(A'S»" a ".Aft 



•j>A5i." DOWN 
I ? ( X 1 » An i ) , 



TO 



AS)* 



S(X8*"BEU["*AJ#"J ='SA6#Xlf Ai*Xl>Abf"* MASK* 

A6»2CXl*Ai)3> 
r(XR>^fl<S>X^»A^l«"f".l4^"V'^" * ". 



nixtitem; 



A4#"C"#u*''5» u*")*'); 



IF (TQS:=bTAX[lNXJ.CF J LSS 127 THEN "*****•' 
ELSt CCTALCTOli), 
IF (BnSiiSTAX£lNX1*FF? L^S, 6^ THFN ;* *****" 



ELSt GCtALC(IOS>)> 
IF BOS LSS 64 THEN BOSfsO/ 
IF IPS LSS 107 TH£N TfiSt»Oi 



IF TOS = THEN GO ERR0WT;XE.G. IN EARLY iiELECTRUN 
IF SPEC THEN GO DLMPIt; 
NORMAL »gBDaLEANCSTAX[INX3.[7»p}; 



IF INX«0 
BEGIN 



OR INX>BE0STK THIN 



I F , NORMAL THE N 



BEGIN 

WRlTECPCDBL]*TRlTEM>OCTALCTUs)#UCTAL(SPREADCTOb*H,L))* 



OCTALCH).OCTAL(L) W 



TOS»«»TOS-ii; 

end; 

IF NOT NORMAL AND flQSg64 THEN 



013J700C 

oi3jaooo 

01^39000- 



01340000 

01341000 
01342000 



01343000 
01344000 
01345000 



01346000 
01347000 
01 348000 



01349000 
01350000 

flijsionn 



01352000 
01352500 

ni3'33onn 



01354000 
01355000 
0l3 r3 6 



01357000 
01357100 
01 35 6 000 



01359000 
01360000 
01360100 



01361000 
01362000 
0136 3000 



01364000 
01365000 
01365100 



01366000 
01367000 
ni36fl000 



01369000 
013/0000 
O]371Q0O 



01372000 

01373000 
01374000 



01375000 
013/6000 
01 3770 00 



01378000 
01379000 
01380000 



01361000 
0138U00 
1 362000 



01363000 
01364000 



01386000 
01367000 

01366000 



01389000 
01390000 



,4:., 

r\ 

4 'I ' 
4» 



b2 
b3 
54 



A^ 



^ 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 



16 

18 

19 
^ 20 

21 

22 
I 23 

24 

2S 
I 26 

27 

28 

I M 

M 
31 " 

I ^ 
33 



34 
f 35 
36 
37" 

I M 
39 



40 
41 
42 
43 

I 44 
45 
46 

1*7 
«8 
49 

I ^ 

51 

52 

I ^3 
S4 

55 

I 56 

P7 



FOH T0S»=»127 STEP -1 UMTIL ACTU ALPR [ dA5E DO 
BEGIN 
WRITFfI INE[*3>TRnFMfOCTAI CTQS?>^r.TAL(S KR EADC TO hy H yL))> 



ENUi 



OCTAL(h)#aCTAL(L)); 
MOVECXNAMS CXNAME C TQS 3 ,CF 3 * L IN£ 1 53 * XNAHEiTOS }*fF)t 

WRftrCf rnRI,Uflr|. TNFf *3n ___^_______ 



013^2000 
OliViOOO 



O13V5OO0 
01396000 



IF BQ0LEAN(STAXtlNX3,t6sn) THEl\ BEOlN 
TnSQRlGi^TOS; 



SOUEEZEIOO TOS««TcS-l UnTR (WOOPSt«tOS UEQ «0S) QR 

CONTRDLOE^C(TOS#X); 
If WOOP ii THEN BEGIN TOS»aTnS*lQt 60 XIT ENQj — _ 



013^*8000 
OliVVOOO 
OlftUOOOQ 



CUTBACKUF (YS=X.FFi GEQ BOS ANU 

Y LEO BCS +1 Ai\U 
^ CO »a CUMHCLn E SCCY^Xi IhtH 



01401000 
01402000 
Olfl03000 



BEGIN 



01^*04000 
01405000 
01406000 



TCS:«MlN(T0acRlG*T0S+DELTA3l 

GC XITi ■■■• ■ ■•-^- ■ ^ 



END 
ELSE 
I F Y 



01407000 
01408000 
01409000 



GTR B O S * 1 ANQ Y y SS T 0&, 



Jin. 



AND CO 

GO cutback; 
squeeze; - 



THEN 



01410000 
014UO00 
014 1 2000 



XIT» 

end; 



01413000 
01414000 
01415000 



IF B O S s o/ i THEN 



01416000 
01417000 
0141 8 500 



IF 0PE«ANDC107*V) AND V»( Yt«»'EEEf ««"££££"[ l»25l23 3 ) THEN 01418510 
BEGIN 01418520 
FHR Tiginft STFP 1 UNTu 1 1 1 nn nyaiat^n 



IF UPERAN0(I*V) AND V NtQ Y THEN iJsUg; 

IF l^iii THEN FGH TOSJsiU STEP -1 UNTIL 

WRITE CP[tJPL]>TRlT£M,UCTAL(TCS)> 



108 DO 



FNOl 



UCTAL(RJ»SPR£AOtTOS*H#L))* 
OCTAL(H)#OCrAl.CL J); 



01418540 
01418560 
Q1419 5 70 



JJL 



SKIPEEE! 

IF OPERANCCIOS^V) IhEN 
f f \/s"FFFF"/t"FFFF*^ri t2'^l231) i>is.n i^UT NURMA[ ■) nH 



01418575 
01418580 
Qi4iaS00 



C(V*'*tCCC''&"tC£C"Cl«25»2i3) AND 
NORMAL) THEN 

MHltJE: QPERANDfT0S»l,R3 AND R«v on 



01418600 
0141*^000 
QHaoQOQ 



END 
EL3E 



TOS:»TOS-i; 



01421000 
01422000 
01423Q0O 



BEGIN 
WRlTECPCDBL3#S#OCTAL(V*STAXCINX3.t8M03>* 
0CTAL(SPRFA0(V*V*V6£D.CF#H^L?1> 



014«J4000 
01435000 
Ql43<?Q0q 



OCTaL(HJ*OCTAL(L)> 
DCTAL(R*SPREADC V+1*H*L))' 
QCTAl.fH)>n CT Al.(L? ); 



01417000 
01438000 
01439000 



IF OCTALCR,C30l63)»"7xi'' THEN 

IF WlTHIN(MCPROG#MAXMCPHOG*VlsV.eF*SEG#AOR) THEN 

BE GIN 



01440000 
01441000 
Q14420Q0. 



writeclinec*3*c»"cqmple"»''x slee"*"? at "» 

0CTAt(SEG)#SEG#0CTAL(ADR)*ADR'H.t40f23); 

MOVFC\AMS[NAME[SEG3«CF3^LINE[73# 



J 44 3000 
01444000 
01445000 



FNn 



NAMEtSEG3>FF)i 
WRITECPtDBL3#l5»LlNEt*3)i 



01446000 
01447000 

01446000 



014490O0 
01450000 
Q1451QO0 



,^'1, 



A 



A7\ 
40| 



52 



>r 



2 
3 
4 
5 
6 
V 
8 
9 
10 



12 
13 
14 



IS 
16 

" 
18 
19 
20 



23 
24 
26 
26 
27 
28 
29 
30 



31 

I K 

33 

34 

I ^^ 

36 

37" 
i 38 

39 

40 



41 
42 
43" 



«S 
46 
47 
«8 



«9 
SO 
51 
52 
53 
S4 



55 



ELSt WRITE(H); 

end; 

IF Rns = e THE.N BllS;?MAXCO»TUS-( IF 



ELSE 128)) ELSE 
IF 80S>T0S THEN BOSj«MAX( 0*TQS-U; 
IF Tns«BQS fiEB MAXSTACK.SI7F 



NllHMAl. Thl^N MAX.STACKhT/E-l 



014^2000 
01453000 
Ql^'aaoaO 



THEN BCS:5T0i>-MAXJ3TACKil2E + i; 
DUMPITJX 

TF WYSTACkADR fiTR AM) MY.STACKt>U,Esn THEN 



OHb^lOO 
01455000 

nH56nnn 



IF NOT MYSTACKOUMPEO THEN 
IF MYSTACKAOR LEO TOS THEN 
IF MYSTACKAOR fiTR HClS TriFN 



01457000 
01457100 
01457110 



mystackdumplc:=irue; 

FOR ItaTOS STEP "1 UNTIL B05 DQ 
BEG IN 



01437120 
01457130 
014*37140 



HRlTE(l»C0BL3*TRITE'rt,OCTAL<I)#aCTALCR*SPHEAO(I 
OCTAL(H)> 
OCTA L {L))r ^^— — 



01457150 
01458000 
0145,9000 



*H#L))* 



PROJs-i; 
foundjsfalse; 
IF cnNTRnLnESCdtx) -and 



01460000 
01461000 

01462000 



CXtCF (iTH 0) AND 



X,FF QTR BOS AND X.FF L5i» TQS AND I NEQ lY THEN 
BEGIN 

I F FGljND:r 



01463000 
01464000 
01465000 



>vITHlNCMCPRGG,MAXMCPRQG*L.CF*SEG/ADR) 
TRUE THEN 
BEG I N 



AND 



01465100 

01466000 

- 01 46 700Q 



WRITE{LINEC*)*CV"MCF' SE"'''GMtNT "*"AT 
OCT AL( SEG )# SEG» OCTAL tAOR)*AOK»R.t 40 121); 
MOVFfNAMStNAMgrSEGl.CFl^LINrCTU 



0l46ti000 
01469000 
1 470000 



END 
Fl. SE 



NAMECiiEGJ.FF); 



01471000 
01472000 
Q 1473 0QQ 



IF F0UI1D»«WITHIN(0UTERBL0CK*0#L.CF#SEG#ADR) THEN 
WRITE CLINEE*],C»"MCP OU''»"TER BL''»'*OCK "* 
0*O^OCTAL(L)^L>H«C40>23) 



01474000 
01475000 
01476000 



ELSE 
BEGIN 



IF NTRMAL THEN 



01477000 
01478000 
01479000 



IF FCiUNO»=WlTHlN(INrSp> INTSPMAX/L.CF^SEG* ADR) THEN 



BEGIN 

WRITE(LINEC*J*C*"INTRIN"*''SIC Ny^'^MBER 
nrTAI {SFfi).SFGjOf^TALf AnRl.ADg.B.rani3m 



w , 



END 



^0VE(INAMbClNAMt[iitG],CF]»HNtL7]» 
INAMtCSEGJ.FF); 



OHbOOOO 
01480100 
014Q1000 

01482000 
0l483a00 
01484000 



ELSE ' 

WHILE (PROS«PRU+1)SP«OWS AND NOT FOUND DO 

IF FniIN Q t »W T THINC PROQSCPRn* »T > PRQflSf PRn»3«>«^ U 



01485000 
01486000 
01487000 



END 



end; 

ELSE 



L,CFipSEG*AQR) THEN 

WRITECLiNE[*J*C/"SEGMEN"'"T NUMB"*"£R "> 

Qr T AL f STG W SEfi* OCTAL ( APR ^.AnK>ft,r /in t2 1W 



oi«ti0oo 

01490000 
-01491000 



014V2000 
01493000 
01494000 



'if mot FnMNfi ANn mORMai TUFK 



IF QPERANOd/X) AND X,[1!U»1 AND x.CBJnsO 

THENStPOSSlBLE CODE (OVERLAID) 

IF FOUN P t a C (YtaX . FF) GTR BOS AiiO 



01495000 
0149S100 
Q14960QQ 



Y LSS I AND 
(SeG»3X«CF) NEO AND 
SFG I .SS in?l AKQ 



01497000 
01498000 
014^9000 



01500000 
01501000 

ni5o?ono 



461 
a7l 



62 
b3 
b4 
%| 
561 ( 

'J 



>r 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 



13 
) .4 

IB 
16 

I " 
18 

19 

\ '" 

21 

22 

I 23 

24 

29 



2B 
I 29 



THEN* 
REfilN 



CONTHULOESCC Y»R) } 



IY»«y; 

WRITE(LlNEC*3»C*"SEaMEisi"#"T NUM8"*»'E«( * ) "^ 

nr T 6 1 f SFR ■> . SFft . nr T Ai . r Anai,p . ^ r > . ^ pp^ v ^ ^ p , ^3 } ; 

ENU; 

IF FCUND THEN 



01^03000 
OlbO^OOO 

01.^04 ion 



oiboagoo 

01&05000 
01*106000 



WRTTKf Pf nm J.^s.i Ti^f-i* n; 



ERROWT! 



01b06lOO 
01SU70G0 

oitiOflono 



INTEGER PROCEDURE SPRe AD( AT, F, C )/ 

VALUE at; 

INTFTiKR AT*F«C* 



0li»09000 

OISIOOOO 
ntStmnn 



BEGIN 

SPREADI»ChRS(MCAT,R0W*AT.C0lJ*0*3); 

Cig(F*«r.HRSrKrAT.BnM*AT. cnL]>^.sn.rFt 



01bi2000 
01bl30Q0 

n n i a o oo 



f;«f,ff; 

END spread; 

PROCEDURE DiiMPanr,nAM.«;; 



OlSlSGOO 
01516000 
Q1517QQQ 



BEGIN 

INTEGER MIXiiTYP#PRTW*PRTF*h/F»e*rP8,S0,AJT*S; 
TNTFGFR Lt ALPHA STARRLAMttj 



oisiaooo 

0lbl9000 



INTEGER a; 

REAL jaroo; 

RFAI .'=;T/^R.<;.,/^pn.p^Tn; 



01521000 

01522000 
0152 3000 



BOOLEAN PRTOK; 

format HD(A5," * ♦♦,A6,2(X1,A53,X2,A1*X1,*A6), 

integer PCQL*SU*Ra*CL'HP; 

REAL SEGS#SGM; 

RFAI SEfifflDRj 



Oli<ii4000 

oisisooo 
nib^ftooQ 



01526100 
01527000 

ni5yflono 



ARRAY LSTDC0I3]; 

FORMAT SEGHCXS'^PRESENT PROgHaM SegMeMS"// 
"SEGMFNT Sl7g AT THrttl'V/3. 



01529000 
01530000 



BADSlZECaC'*")," INVALID SEGMENT OIcTlQNARY SIZE "»8("*"n. 
BA0SDESCC8(W*«)," BAD SEGwtiU DICtIUNASY DESCRIPTOR "^SC*")), 

-^^ SEr,MENTfX3/2fA4.xn>2fXl>A5),y ?,Ai,Al). 

PDCAS," » ••#A6,X1#21A5#X1),'', R*",A4#«# 
STARS5««****h; stars. C6»183»»STARS.ta4Sl83l 
IF DES CRlPTORf JARrJARO^TYPi Aun TYp«msQ« iHFti 
JAROlaJARO.CF; 



01532000 
01533000 
01534QOQ 



■A4); 



01535000 
01536000 
Ql5j70QQ 



01538000 
01539000 
0l5aQQQO 



IF (PRTQK!fPDArADESC(PRT*PRTO)) 
PRTH<gSPREAD(PRT,pRTF>PRTQ); 



Then 



IF PRTO»0 THEN 

FOR MIXl«l STEP I UNTIL MIXMAx 

IF QNFMTX»a HH flM frMTXaMT^ ThFS) 



01541000 
01542000 
01543000 



00 



IF DESCRlPTOR(PRT0+MIx*H,TYP) 
BEGIN 

nextpage; . 



ANB TYP»"50" THEN 



01544000 
01545000 
QtS4Sigfl 



WRITECLlNFt*]»Hl#MlX); 
IF 
IF .iABnan tufm caj .^f 



01546000 
01550000 
ni5!^1000 



ELSE 

DESCRIPTOR(JARO-Hv|lX# JAROO, TYP) 
AN D f .iAHnn«-.iABnn.cFJ cjh n 



01552000 
01553000 
0l554n00 



AND 



BEGIN 

MOVC(MC(At*JAR00).RiJl^,A,C0LJ#l/ 
LINEr.23*l,Q*7i; 



TYPs"50" 

THEN 



01555000 
01556000 
01557000 



O15SSO00 
01559000 
01560000 



i 



I'll 

'13 



4S 

a: 



»9 



n 

2 
3 

4 
5 
6 
7 

a 

9 

10 

11 

12 
13 
14 
IS 
16 
17 
IB 



19 
20 
21 
22 
23 
24 
2S 
26 
27 
28 
29 
30 
31^ 



32 
33 



34 
35 
36 
37" 



36 
39 



40 

41 

42 

♦3" 

t4 

«5 

46 



47 
48 
49 
50 
51 
52 



53 
M 

55 
56 



MOVCCMCCAJsA + U.KUW/A.COL].!^ 



END 



ELSE 
BEGIN 
MQ VC ( ST A RSf 1 » I I N£ T 2 J M * Of / ) 



mqvc(stars*1»linec3jm*0»?); 
end; 



nextitem; 
writecp/hd* 

nCTAKPRT), 



0CTAL(PRTH)*OCTAL(Prar)*UCTALCPF<TO)#" ". 

2#"PRT[**"»"*] "» 

QC T AL (PHTn * MlX )^ 



OCTALCSPREAOCPH 
IF F*0 THEN " " 
3»*'PRT CMl" ^>' X^* 3f 'VCF*R "# 



TO+MiX,F*R>),OCTAL(F)*OCTAL(R)* 
ELSE "*♦•* 



OCTAL 
OCTAL 
IF PC 



CR+3)» 
(H:sSPREAD 

T AL(H iC30i 



(R+3*F,FP8)),0CT 
63j^"bQ" ThE^ " 



AL(F)*QCTAL(FPB)# 

" ELSE "■ 



*"j_ 



2#"R+3> F"»"PB "* 

0CTAL(R+4)* 

QCTALrH»BSPREAD(R*4*F,S0))^DCTAL(F).QCTAL{SD)« 



IF UC 

a,"R + 
ncTA 



TALCH 
H* S'' 



.C30J 
*"EGM 



ENT'S" DICT1"»"0 



" ELSE "' 
hARY •% 



L(Rt6)f 



OCTALfHIsSPREAU 
IF B0CLEANCH,[3 



CH+6*F,AiT))#0CT 
0:i3) THEN " " E 



ALCF)*OCTALCAIT)# 
LSE "*"* 



OCTAL 
OCTAL 
IF H. 



(HSaJ) 
C3Q>2 



PREAD(l!i + i'*F*C))*OCTAL(F)*CCTALCC)* 

Jg3 ANU F<H AND C?Q ThbN " " FLSF ***"> 



7»«H + 

"VtA 

OCTAL 



7p L" 
S FA" 
fR-*-fl^ 



/"AST 
#"LSE 
# 



MS"*"CW FOR"*" 



WHICH"*" MSFF "* 



0CTAL(HJaSPREAD(R+8*F,C))/0CTAL(F),QCTAL(C)* 
»t If ^ 

2#"H.nn* "*"TIVCw "* 



OCTAL 
OCTAL 
I F Hs 



CR+9)* 
(HIsSPREA 

A N D FaQ 



OCR+V*F,C))*QCTALCF)#CCTAL(C)» 
THFN " " El SP "♦"» . 



9/"R + 

"CA 

OCTA 



U. 



11» "#"LI 
TE DR"*" 
R^IO)* 



Tfc.RA"»"L FUR ","L 
PRUGH"'"AM R£L"/" 



AbT C"»"0MMUNI"* 
EASE "# 



OCTAL 
IF OC 
THEN 



(HI»SPREA 
TALCH, £30 
" " ELSE 



0CR+10»S*C))»DCTA 
»6)3*"SO»^ AND 0<S 



LCS)rOCT 
AND S<R 



AL { G ) * 
AND R«C 



••*« , 



5*"R+ia* "#"FF = B"»"OTTOM "*"0F THE"*" STACK"); 
IF CONTRQLDLScCR + a'HJ A.xO ( LOC I RCW S sH , CF ) GTR l02^ 
AND H.FF fiTR \Q^li THEN ELSE LDCTRP^;»-i; 



NEXTltEM; 
PROGStPRO 
IF nESCWt 



WS»«0*255 3 J»PCClL»»»i; 
PTQHfR*A>Sn«TYP) AiMD TYPa"5Q" THFN 



IF 0PE8AND(SDl»SD.CF*SEOS) AND SEGS , C 1 J 37 ]aO THEN 
BEGIN 
— WRITECP»S£GH); 



FOR SEG»*l STEP 1 UMJL SEGS DO 
IF 0PERAND(SD+SEG,S6M) ANO 
(.AnH.tgaQM..f. F . )» 1.0.2.3. T HEN, 



bOlUOO 
b6200C 
b<?jQQQ 



ioSOOO 



bo7000 
368000 



5/0000 

571000 
57P000 



573000 
574000 
57 5000 



576000 

577000 
578000 



579000 
^580000 
5 81Q0 Q. 



582000 
583000 
584000 



585000 
586000 
5d7Q00 



588000 

589000 
590000 



591000 
592000 
593OQQ 



594000 
595000 
596Q0Q 



597000 

bveooo 

59900 



600000 
601000 
602000 



603000 
604000 
^0 5000 



606000 
607000 
6QB000 



60 

60 



9000 
9100 
9 2 



61 
61 



0000 
1000 
2Mil- 



61 

61 
41 



3000 
4000 
5000 



61 
61 
M 



6000 

fooo 

600 



I J 



I'l,- 

■M 



4fi| 

'\ 

iiiO 
•>) 

b2 
'.I J 
b4 
')5 
hf, 
|S7 



h 



} 2 

3 
4 

6 
7 

9 
10 

12 
13 

I '^ 

15 

16 
IS 

21 ^j 

22 
^ 23 

24 

26 
I 28 

27 

28 

M 

31 

I « 

33 s ■ 
34 

I » 
36 
37 ~ 

\ "^ 
39 

40 

I «1 
42 
♦3" 



46 

I " 
48 
49 

I 50 
51 
52 

J4 



5B 
I 56 



^ 



JJL 



BEGIN 

(nPERANDCACR-liSlZ) 



_AML 



SIZ,CFbSE(j) 
CQPERANDCADR-l^SIZJ AND 
OPERANCf ADR-2»H) AND 



OR 



01619000 
0l6<iQC00 

moaiono 



H.C3:6]=7 AWiJ 
SlZ,[8»lOJsSGM.CF) ThtN 
ST^.FF FLSE Uj 



01623000 
01624000 
Q1625Q0Q 



BEGIN 



IF B00LEANCSGM,t2:iJ) THEN 
UsSriM.CFt 



01626000 
01627000 
Q16^9QQ0 



. r« i H 



starulaimkj 

fgr i:so st1.p 1 until intspmax 

IF iNTSPrn.CiHi UIJ'SL ThLN 



01629000 
016 30000 
016 31000 



DO 



BEGIN 



01632000 
01633000 

ni634ono 



IF L9ir 

STARBLANKtg" 



THEN 
tf : 



sizia^; 



lS«INT3PMAX+2; 



01635000 
6l635l00 
016 3 6000 



END. 



WRlTi: C L lN E[ *]t 5 EnME . NT*l .l CT AL f ' ;£. (i) * nrT AL, CST7 , ) , i 



IF I. 



OCTaLCAOR)* IF SUsO THEN STaHS ELSE 
OCrAl.(AO« + SU-l)*OCTAL<LJ*STARBUANK); 

lEO intmax then 



01637000 
01638000 
016 3 90 



-EMO- 



MCVEC lNAHSCiNAMECL],CF]»LlNEC4],iNAMe:CL].FF); 
WHlTE(P*/»LlNt;[*J); 



01640000 
01641000 

ni64?onn 



El Si 
BEGIN 

4|L 



01643000 
01644000 

oio aaooo 



C P C Q u t « P (: li f *■ O « a S 5" - ■' Tw't^ ■ N 



BEGIN 

PRaGS[PHQwS/255J;=254; 

prqmS;~phqwS-i-i; 



01646000 
01647000 
01648000 



pcol««o; 

end; 

PRQGS[PHawSfPcQL3»8 



01649000 
0l6b0000 
0l ft': a i 00 



016S2000 
016S3000 
Q16 S 4 0Q 



ADHii 

(IF SIZsO TH£N 

SFGrfl>38»lQJ/ 



ELSe AUR + SIZ-l)tiai33»l5](i 



ENDJ 

end; 

IF f PBriGSrPRnwS.B'SSllaPfcQi v>n 



0l6l3b000 

01656000 

.016^7000 



r:^iL1^^ 



01658000 
01659000 
Q16600QQ 



BEGIN 

FCR R0! = STEP 1 UNTIL PRO^^S DO 
SEQUEImCECPHUG51HU,*J^PRGG3[HQ*255]); 



ses8»*prows+i; 
for i««0 step 1 

BFQ IN 



01661000 
01662000 
01663000 



UNTIL PROWS UO 



-EJdii. 



SE.GS«BSLGS + PH0GS[I*255]i 
LSTOCIJJ'O; 



01664000 
01665000 
Q166600Q 



FOR SEG»»1 
BEGIN 



STEP i UNTIL SEGS 00 



01667000 

01668000 
Q1 669QQ Q 



IF PROrtS>0 THEN 

FUR I««l STtP 1 UNTIL 

IF LSTD[R03g255 OR 



16700 00 
016/1000 
01^72000 



PROWS DO 



016/^3000 
01674000 
016/5000 



CLST0£U<255 AND 01676000 

PROGSCI»t.STOCUKCF<PfiOQSCRa*LSTDtRO]].CF). 01677000 

■ '■ THEN 01676000 



''"I 

1 29 



52 

i)3 



10 

11 

12 
13 



16 
17 
18 



19 
20 



23 
24 
25 
26 
27 
28 
29 



33 
M 
35 
36 



39 

40 

I 41 

42 



43 



46 



48 



49 
>0 



52 

I S3 



RCj: = i; 

wRi rt:cf'»bLGM£NT# 

OCT At. C CSfiMs 



016/9000 
0l6ti0000 

PH i H i ia i H o ^ I, , sTU [ R ni i) . r fl ;im),n 1 6^ 1, 000 

aGM.FFsO THEN STARS ELSE 01682000 

UCTAL(SGM.FF-SGM,CF + n# 01683000 



IF 



stakb else oct al c sgm . ff ) ) > 
lstdlrujs=lstdcku]+i; 



END. 



E ND* 



Olfifc^lCQ 
01685000 

0l6fel600C 



END 



ELSE WRrTE(P[nBL3.BAnsl2EV ELSE WRl rr C PEOBL 1 >BaOSDESC ) J 



IF (AITJ=MIXSTK[MIX]) = 

STAXL01J5 
(H-1 )li 



IhEN 



01687000 
01688000 
1689000 



(S-1H18«33«15U 
lt7U7JiJ ELSE 
BEGIN 



01690000 
01691000 

oi,69?nnn 



IF STAXCAIT].FFsO 
MIXSTKCMIX3:50; 

-umi _ 



THEN STAXUITJ.FF! = S-1; 



01693000 
0169^000 

ni694ino 



OyMPSTACKCAIT)^ 
ir ONEMIX NEfl AND ONEmIX«»MIX 
END? : __^__ 



01695000 
01695100 

0169 5 200 



[HEN MIX»»MIXMAX+1; % XIT 



IF PRTQK THEN 

FOR MIXJSI STEP 1 UIMTIL MiXMAx OU 

TFf AITS s MIXSTkCMIX ] ) NE (i THEN ST A X [ A t T J . T 7 U ] i gp; 



01696000 
01697000 

01698000 



01698100 
01698200 
Ql69fl300 



COMMENT THE ABOVE WILL CAUSE ANY STACKS ASLEEP* ASSOCIATED WiTH 01696^00 
A MIX INDEX^ BUT KOT DUMPED In THJS PROC£DURE#TO BE DUMPED 01698500 
I A TrR AS CnNTRni ST A TF S TATFS, i ni^Oft^Qg 

01699000 
01700000 
01701000 



END DUMPING NORMAL STaTE PROGRAM INKO^ 

PROCEDURE DUMPGONTRULSTACKS; 

BEGIN 



FORMAT H(X8#»C0NTK0L 
REAL V*R#A; 
iNTEfiFR INX>Tf 



STATE STACKS"); 



NEXTPAGE/ 
WRITE(P[DBL3*H)> 
STAXC0]»al27<t6anB ;33:i53; 



01702000 
01703000 
01704000 



DUMPSTACKCOJ* 
NEXTPAGE/* 



01705000 
01-^06000 
01707000 



IF DESCRIPT0R(ISTACK#A*R) AI\Q Rs:"50'' THEN 
IF (V» = AiCfl» 1C3 )>0 AND («i5 = A.CF)>0 THEN 
H'AtV-n ^ 



01708000 
017O9000 
01710000 



IF BEDSTK GTR THEN 
FOR INX»«1 STEP J UNTIL BCDSTK 
I F Bnni FANfSTaxf Thtxif r/M I^ 



01711000 

01712000 

-01713000 



BEGIN 



JLfcCfiL 



■Ft.Sf.. 



01714000 
01715000 

j3i7i6onn 



R»*stax[inx].cf; 

TF R GTR A AND R 



i.r.a I THFN 



BEGIN % I STACK ASLEiEP . 
STAXCINX3.FF«eAJ 
NFXTITFMI 



01717000 
01718000 
01719000 



END 



DISPLAY(ISTaCK#THuE3; 

n«o;at so dont dump istack twice 

S PFCIAL TSTAr.K STUTF; 



01720000 
01721000 
01722000 



DUMPSTACKdNX)* 

nextpage; 

end of D UMPING BFrmEO 



01723000 

01724000 
1725000 



CONTROL state STACKS 



01726000 
O1727OQ0 
01728000 



16 
47 

60 
Ei1 
52 
bf 
S4 
5b 
6i; 
B7 



h 



I 2 
3 

4 

I s 

6 
7 

I B 
9 
TO 

I 11 
12 
13 
14 
IS 
16 
17 
IS 



19 

I 20 

21 

22 

I » 
24 

2S 

I w 

27 
28 

t » 

30 

31 
I 32 

33 

34 
I 35 

36 

37 ~ 

I « 
39 

to 



I 41 
42 
43 



«S 

46 

f " 
18 

49 

I 50 

51 
S2 

55 
I 56 



IF I GTR 

BEGIN 



THEN * liTACK AWaKL 

STAxron = T&Aci'?n3;i!:?J>' 



NEXT item; 
oisplaycistack'Truj); 

flllMPSTACKtO); 



01729000 
01^30000 
Q1,731Q0Q 



nextpage; 

end; 

IF MAX.STK QTR REDfaTK THEN iHMURI- C.;>, .STACK. S T iJ QP 



01i^32000 
01733000 

017^4000 



''"fm lNXi«BEOSTK + l 

BEGIN 

DUMPSTACKCINX); 



STEP 1 UNTIL MAX5TK 00 



01735000 
017J6000 



IF INX LSS MAXSTK THEN NEXTPAGE/ 

tNo; 

I F . .|\|Q T .... MYSTa C KD U MPED THEN 



01738000 
01739000 
Ol7ittn0O0 



IF MYSTACKAOR GTR THEN 

BEGIN X SPECIAL DUMP OF USER SELECTED ''STACK" 
STAXCOUgMYSTACKADR A MJX {0«MYSTACKAOH*i » 



01741000 
01742000 
0174 2 100 



AREA 



nilMPSTACKfO W 



(IF MYSTACKSIZE 
U4J47:i]; 



NEQ Then MYbTACK^UE ELSE 200)) CTF & 



01742110 
01742120 
017 4 21 3 



mystackdumpeoibtrue; 

end; 
fnid dumping cqntrni state stacksi 



01742140 
01742150 
01742160 



DEFINE MAXMeSSAGES=100«; 

STREAM PROCEDURt. MavDCSfO/W)/ 
V A L U F , \ fi i 



01742165 
01742170 
oi743nnn 



BEGIN 

LABEL sxnr 

S ii»S; Dirap j- 



01747000 
01750000 
01751 00 



wcaciF acs"«-" then jump out 

Si:«Si-i; DIJsDl-i; 

FXTTt D.'itsCHRj 



2 TO exit; ds;schr)); 



01752000 
01753000 
01754000 



01755000 
01756000 
01757000 



END MOVO> 
PROCEDURE 



BEGIN 

BOOLEAN B; 
INTFGFR Ci 



PRlNTttUEUECP«OC»C0O€); 

TfjTfGFR FRnf.»r.nnE; 



VALUE P»OC*C0DEi 



01757100 
01757300 
Ol757?tlQ 



01757320 
01757330 
01757332 



REAL A,R,S#T*J*USERC00E; 01757335 

FORMAT QICAS*" *, "^aCO^Xl )* IZ^"/"* 12# X89 ) # 01757340 

Q^tAS^** » ">£(0^Xl)>I^»"/%^2^Xl»"USER»*'#Al»A6rX76? Ql75735Q 



»Q3{A5*X3*2C2(Q'X1),X1)*X2*X72) 



Next item; 



c»«cqdi,ff; 

CODE>«0 & CODE etc; 
IF CQDEgJ THEN 



01757352 
01757355 
01757400 



BEGIN 

OlSPLAYCMIXMASK/FALiE); 

DISPLAYCINFflMASKl fFAU SF ); 



01757410 
01757415 
01757420 



DISPLAY(INF0MASK2#FALSE); 
01 SPLAY {CCMASK1#FAL5£); 
0rSPVAYCCPMASK2^FAL3EU 



01757425 
01/57434 

17574 36 



01757440 
01757450 
01 7574 55 



end; 

display(prcc'false); 
n»o ; 



THEN 



IF DPERAND(PROC»A) AND A,[9»9]s5li aNO {RI«A»CF) NE« PROC 
I 
DQ BEGI N ^_ . ^ 



01757460 
01757470 
Q 17575 Q0 



017 57509 
01757510 
1 ? t7&8 



7''' 

'■*', 

.'91 



l«i| 



44| 



4(1 

50 

f.1 

54 

5b 



9 

10 

11 

12 

13 

14 

IS 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

2S 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 

44 

45 

•6 

47 

48 



49 
SO 
51 
52 



a 

S4 

35 

56 



IF NOT U 
CASE COD 
BE GI N 



PEHAND(R»A) THEN I : aMAXMESbAGES+1 ELSE 
E OF 



BEGIN % OCE.G. STAJIONMES 

WRIT£(LINEC*3*«1* OCTAL(R 

OCTAL(l.flHALFCR))»A. 



SAG£HOt[)£R) 
)/OCTAL(HIHAlF(R))# 
t 9 U J » A . C 1 tfi 01 ) > — 



MOVD(Mt(R+l +C).RQW*(R+1 +C).CaL]*L 

MINCU^MAXC 
^ hRlT E CPf 1 5> LI. N E [ 



INEC4]/ 
OR-U)); 



end; % 

BEGIN % KtOOKQ) 

B»rOFERASn(R*l»UbFRCaOEi; 



WRlTLCLlNEr*]*Q2>QCTAL(K) 
0CTALClQHALF(R3)*A, 

IF B Then uii£Rc n Q £. 



*OCT AUChIHALF(RJ)* 
C 9 : ^ J # A . C 1 /> t 4 J * 



IF B THEN 
WRIT£(PM5#LISEC 
PRINTCR-»R€ALCB)» 



Ui»ERCOOE.Ci2»363 ELSE •♦ 



"); 



end; % 1 

BEGIN % 2(E 
WRrT L{Ll N E t* 3 >fll 



G* D 



0CTALCL8HA 
«RITE{P#15*LINEC 
PRINTCR-HiR-hS); 



19Q) 
t,UcT.AH,R,)ff:iCTA|„(hIHAi, FCH))» 



LF{Rn#A,C9«4j#A,Cl4Jfln; 
*3>l 



IF nHERANOCR+l#S) AND(S:= 
00 BEGIN 
»<RnE( Llft' £i:*3yQ 3^U CT 



S.CF) NEa R+l THEN 
AL (SJfOCTA LCH IHAlF(§ ??» 



JJL 



QCTAL(LaHALFCSJ)^QCTAL(HIHALFCS + in# 
OCTALCLOHALFCS + U)); 
QP E R A N p<:i>*l#T) ANQ T«CF NEQ S^ j THEN 



M I iNI ( 9 # M 
WRTTFCf^>nf 



J.R0rt*{S-^2),CULJ*LlNEt6]# 

AXCOK-9)); 

LlNEC*1)? 



END UNTIL NOT OPERAND (S.T) OR 
(SI»T.CF)«R+l OR 



END 



end; » 2 
END case; 

UNTIL I>gl-i-,l GTti MAXMESaAGES, Oa, 



(HjsA.CF)*PROC OR (A,C9J4J»0); 



END printqueue; 

PTOtEOURE Dtj MPMC PI N F 



Hi. 



BEGIN 

REAL 



R#, 



A*N#L»TA*TS*MA*MS*LA*LS,RA,RS*PA.PS; 
I NTE G ER TYP jS> Ci ^ ^ ^ ____ 



BOOLEAN 
BOOLEAN 
FORMAT 



TINUOKI 

comsave; 



" > 2 1 n» X 1 s> xa^ » **(^> n> XI > q» ^ y» y. 



nullmessage 
nullslatec" 

h 



SC"#*«( NO SPQ MESSAGES QU£LEQ")» 

#*# NO INDEP£N0£NT-8UNnERS TO BE INITIATED")* 

OMEMXif #^*TQGLE.C15>6]'SX2," « ">A2,". NOMEM^), 



TPXICXe^^BIT "#I2*" * "Wi'"* ♦'^X28)# 
Tr(X8,"BlT "M2*" » "tlU"* «»*a6/); 

BOOLEAN STREA M PROC FD UH E B lT q N( Wr B)i 



VALUE b; 

BEGIN 

Sn»W; SKIP R !aax- 



■imiM^ 






SB THEN'T 
ll^t-TALLY 



ALLY t« II 

*;■■ ■■■■•■ 



^57530 
757550 
7^37560 



757570 

757580 
7'^759fl 



757600 
757610 
7':?7620 



757630 
757700 
757710 



757720 
7o7730 
7577 4 



757750 
757760 
757770 



757780 
757800 

757810 



757820 
757830 
757840 



757845 
757850 
7576 55 



757860 
757865 
757870 



757875 

757880 
757flfl:3 



757890 
757895 
757897 



757900 
757920 
7579'iO 



757960 
757980 
758000 



758100 
758200 
75830 



758400 
758500 
759QQ0 



760000 
761000 
7 62 OO P 



763000 
764000 
765000 



766000 

767000 
76RO00 



769000 
770000 
77 1 000 



4I>| 

471 ' 
4U 



65 
% 



h- 



3 

4 

6 

7 

9 
10 

12 
13 

I » 

IB 

16 

> '7 
18 

19 

I 20 

21 

22 

I » 

24 

2B 
I 26 

27 

28 

I M 
M 

31 ~ 

I M 

33 

34 
I 35 

36 

37"" 
^38 

39 

40 

«2 

»3~ 
\ 44 

ts 

46 

•8 

49 

I 50 



SI 



52 

\ 53 

54 

55 
I 56 



ARRAY TBE0J143]; 

REAL UA*US*IA*I5»FA,FS; 
FHRMAT L,UN(A3),t 



LOUEHDR(«Eti'''X2#"I0QUfi:"lN0EX''» X2»'"D lSK-» ADDRESS" )* 



017/2000 

oi/zaooo 
nii^Mooo 



8ADLQUENTRY(A2," # 
BAni„QUF("«» THE LOF 



BAD ENTRY IS »» 



2(0. 



FLQUECA2*X6*A3,X8*A1#A6)# 
NULLQUE("i»## NO ENTRIES IN T^lE LQUE")' 
FTCAl>Xl>A2*Xl^AlfXr>A3*Xlf a2>X1^A1#Xi.a2>X1#a,1)^ 



01774100 
Ot 774110 
0177^120 



RT( A3 » XI * A2 J» XI # A4 , XI * 46* X 1 » A3 3 # 

PT(Al*Xli'Al*Xl* A5i'Xl*A5>Xl#A6)* 
1QATH(X8>"FIFI PS OF WOSDS IN THF 



017/4130 
01/74140 

Ql 7/5 Q Qg 



X8*"TINU'V 
X12#»' t0l3J"/ 



l/Q ASSIGNMENT TABLES I**// 



01776000 
01777000 
01778000 



HARUinARF UNIT MiMPHER'V 



Xl2#« C8»33"/ 

X12#"2 CU'^1 POWER OF 2'V 

XI 2»" — C16»63"/ 



X12*'V3 

X12*" 

Xl2*".ti 



[24M] IN»0* DUT»1"/ 
[25»i]'V 

Crenel UNI r mnemonic"// 



Xe»"ROCTABLE'V 
X12*" tO»83*'/ 
Xl?i"l Cfllft] 



X12*"2 
X12,''3 
X1 2 «"4 



tl4>10] 
[24: 17] 
C 4 1i7 3 



MTX INQFX IF ASSIGNED"/ 



xe^^PRNTABLE"/ 
X12#" lOlU"/ 

xi?*"i ritii 



REEL NUMtJtR"/ 
CREAfiON DATE' 
C YC L E"// —^ 



TF yJRiTE RTNG Pne5frMt^/ 



XI 2*" [2113]"/ 

X12*"2 [ISJISJ ADDRESS (jF TOP I/O DESCRIPTOR"/ 

Xl2/"3 [30<1B] PHYSICAL KFFL NLMRfR"// 



•'LUN''#X6# 
"TINU"^X24# 
"MULTITARl F' 



<JJL 



"LABELTABLE"*X4, 

"RDCTABLE"#X24* 
"PRI^TARI F'V 



X9# 
)(2#"l"#X4#''2''#X6f''3''>X4#'»4">X8# 



X4*"1"#X2*"2"#.X4^"3"*X6»"4'VX8/ 
X2*"rVX7*"2",X5'"3"*x5); 

bnni EAN PRnCF-nuRE \/arify(iaihat. A.s,b j> 



VALUE WHAT»0i 
INTEGER WHAT; 
REAL A«SJ 



BOOLEAN B; 
BEGIN 

niSPLAYCWHAT>B); 



VARlFYr 

0ESCRIPT0RCWHAT^A#SJ 
Sb**50*^ and 



AND 



CSI»A.C8»10])>0 
(A«=A.CF)>0 AND 
(A4S-1UMAX00RJ 



AND 



END varify; 

DEFINE VERIFY(VERIF1fUV£RlFY2,VE«IFY3)« 

VARIFYfVERIFYi#VEHlFYg#V£RIfY3»r*LSE)«; 



017/9000 

01/eoooo 
ni7fliooo 



01782000 
01783000 
01764000 



0l7eb000 
01/66000 
01787000 



01768000 
01789000 
Ci\7QQnnc\ 



01/91000 
01792000 
Q179 3 O 0Q 



01794000 
01795000 

Qi796non 



01797000 
Oli'98000 
Q1799 QQQ 



01800000 
01801000 
Q18 2QQ Q 



oiau3ooo 

0180400C 



01806000 
01807000 
oiaoannn 



018U9000 
01810000 
Qi aUO QO 



01812000 
01813000 
fiiai4non 



01814500 
01815000 
01816000. 



01817000 
01818000 
01819000 



01820000 
01821000 
01622000 



01623000 
01823100 
01823300 



"I 
'■'1, 






44 

4B| 

4ri| 
14' 

48 
49 
SO 

■:. I 
5: 

i3 
54 

55 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
IS 
16 
17 
18 

is" 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 " 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 ~ 



45 
46 
47 
U 
49 
50 
51 
52 
53 
S4 
55 
56 
5' 



FORMAT IQQSHC 
XR^"UNIT" 



"FIEL.OS Oi- MORd^ IN THt I/Q-tiOtUe TASLES"// 
/ 

te a J "/ ^ ^ — ~ — ^ 



Xl2* 

xia* 

X12» 



"1 CI:A3 unit TYPb"/ 
"2 t5J8J ERROR FIELO'V 
**1 E 13i n UNI T N fl T HEADY'V 



Cl^JU ERROR FLmG"/ 
tl5«l] WAHING FOR AN 1/J 
X12>"<S C16t<?] I / O I I M PHQC E.'S. S'V 



X12# 
X12, 



"4 
"5 



CHANNEU"/ 



X12. 
XJ2, 



"7 CI 
«8 £3 

1 ncAT 



3»15] 

QlIF"/ 



INDEX OF »IRST I/O REQUEST"/ 
INDEX OF LAST I/O REQUEST"// 



X12# 
Xl2f 
X12# 



♦'1 
It 



cc 

[3 

xa 



:3] 
'.51 
?43"/ 



a 5# OESCWIPTOR BITS'V 
MIX INDEX"/ 



xia# 

X12> 
X 1 2 ^ 



"2 tl 
"3 El 



a«63 LOGICAL UhtlT NUMBER"/ 
8J153 INDEX OF Next I/O REQUEST"/ 
3>151 ADDRFSS Of I/O OFSCRtPTOR"// 



"LUN/ 



TINU 
"UNI 



M 



T " ^ X 3 

tJF"f X 



If 



"LQC 
"FIN 
"TNH 



AT QUE 
ALQUE 
E X"^X 



•'#X2l* 
"*XU/ 
Zj 



X2»"rSX2^"2'%X3*"3"*Xl»"4"»Xl»"5"f 

X1*"6"*X1,"7">X5*"8"#XU»X24* 
X 2 > " 1" » X 5 * " <i " t X 2 > " .W X -a ^ " i4 " / / 



IFQ(A5#X2f 



A3)# 

nr A1#X1«A2«Xl,A3^4fXl^Ar)#2fX1#A5))/ 



WF 

LF 

NF XTPA 



0(0*X1* 
0(A1*3( 

^a 



Of 
X1'A2)#2CX1*A5)); 



COMSAV 
COMMON 
DISPLA 



EJ'COMM 
JsBOOLE 
Y CTO PiLE 



ON/ 

AN(6A}; % 
.FAtSE); 



OCTAL ONLY WHEN CAuL PRINT 



IF operand(Tcgle»r) then 

BEGIN 
WRITE(PCDRL]^NQMFMXI>(]CTAL(R4[15«63)); 



FOR n»l STEP 1 UNTIL 11 DO 

if BIT0N(R#I) THEN WRITE(P'TF,I,l,-l); 
fllL TBt*1 WITH . , ^ .:■■.. 



01624000 
01625000 
0lH;i6000 



01627000 
01828000 
016290QQ 



OldJOOOO 
01831000 
01H -I20 



01833000 
O183A000 
01835000 



01836000 
01837000 
018380 00 



01839000 
01840000 
01841000 



01842000 
01843000 

01844000. 



01845000 
01846000 
nt647nQQ 



01848000 
01849000 
01850000 



01851000 
01852000 
Q1653QQQ 



01854000 

01855000 
0I 8;3<?0QU 



01856100 
01856200 
Q1 857Q 00 



01858000 
01859000 
OIBOOOOO 



01861000 
01862000 
Q166300Q 



« 



ft 



» -ft 



n 
n 



■,n^n 



"OIREC 
"SEPTI 
"BREA 



TOR"#"Y 
CTA"*"N 

TOfi^ji" 



TOG 
KING 



Km 



tt 



"'XOOiBIT OOCNEVER USED) 
"*X03XBI1 01 

">iO(i>aiBiT n^ 



01864000 
01865000 
01866000 



"*»09»BI 
">X12XBI 
"i»15»BI 



T 03 
T 04 
T 05 



01867000 

0l8680<>0 

-0186^000 



"'%18XBI 
"^X21XBI 

"^ai2aiiiBi 



T 06 

T or 

T 08 



018/0000 
01871000 
01872000 



"*X27XBI 
"*X30«8I 



T 09 
T 10 
T 11 



01873000 

01874000 
01875000 



"*X36XBI 
'V^X39XBI 
">X42XBI 



T 12 
T 13 
T 14 



018/6000 
01877000 

01878000 



"»X4SX8I 
"#X48Xei 
♦SXSIXBI 



T 15 
T U 
T 17 



01879000 
01 88 0000 
01881000 



47 
48| 
't!ll 
60 
•jl 
62 

b4 



..-tJ> 



tl . ft 



>r 



• 



13 



15 
16 

18 

19' 
I 20 

21 

22 
\ 23 

24 

25 

) ^ 

27 

28 

I « 

30 

31" 
I 32 
33 
34 

I ^ 

36 

37 ~ 
I 38 

39 



«0 

42 
43" 



■fill 






45 

«6 

» •' 
«8 
•9 

I 50 
51 
52 
S3 
M 



'•," 



t» . fl 



«,,t 



"CDFREE 

'♦FINDINGA",«DDRtSS 

"SCRATCND**,'*THFCTnRY*S^WEADY 






•'» " 



"MCPFREE "f" 

"INOPTSTO"»"PPEU 
'nr.QPTSTn "."PPF[j 



"*X63X81T 



18 

-ail. 



21 
22 
.22. 






"OCWAITINWi-wG 

"SMWSTOPP'**"ED 
>*NINFTrrN'*.'*KnTHFAr>Tw.'«MG 



•%•* 



«T , n 



"'X72XBIT 
"'X75XBIT 
"^ai7flXBIT 



24 
25 



'%" 



"STARTac 

"EGGSELEC"*"TSTUPPLD"*" 

"HEMnTELn"."6FRrE 



••*X8U8IT 



27 

28 

.24. 



"SPOEONUL'^wUGG 
"INTFREE 
**OTROY 



" f " 



»^ ff 



M . M 



M^ « 



'>*90XBIT 
"*X9 3XaiT 



30 



"NOBACKTA''*"LK 

"KEYBOARD'%"READY 

"BUMPTiiTT"*"TIMt: 



•♦»XO«XeiT 33 
"*Xi02X8IT 34 



..,., 



"f" 



♦•A80RTABI,'%*'E 
"NSECONDR"#"EAOY 
**HC1I.„DFREE''>" 






'V^XlOeXHlT 36 
"'*lll%blT 37 



"USERDISK'S^READY 
"STUREOY •'*" 
"STArKU,SF**,>" 



II , II 



"'Xil7XBlT 39 

♦♦»X120X8n 40 
"»X12BX8IT ai 



'♦SHEETFRE"»«E 
•♦STATUSBI**^"! 
"HPPTOG 



"jxiaeaibn *<2 

"*X129X*B1T 4 3 

"fain?%HiT 4a 



w ^ w 



"'%135XeiT 45 
'•'*U8XeiT 46 
"iiUlXRTT a7 



FOR I« = 12#13»14*2l STEP 1 UMlL 4/ qq 
BEGIN 

WRTTFf l TNFr*]>TFXT>r>RFALfHlTnNfR,T^lW 

MOVCCTBt 3x13, o»LIN£[ 2 1*4.3*0) J 



FNHI 



WRlTECPcOBL3*A*t.INEt*3 3; 



end; 

OlSPLAYCNOPROCEbSTUG.FALbE); 

nextttfm; 



dumparraY(tar); 
oisplayctogle.false); 

NFXTITFim : 



% for comparision 



nextpage; 

display(0ptick>false); 

IF qPFRANQ(GPTTU\,H) ThFN 



BEfilN 

IF BITONCRtl) THEN 
WRITEfPWF*I«l*»1)i 



FIUL TBt*] WITH 
"USEDRA"*" 

• USE D RB ' 



'•80JMES''#"S 






"TERMGO"*" 

"GIVEDA''*"TE 

'♦GTVFTT'S^'MF 



••SAMEBR''»''EAKTAP"*"e 
••AUTOPR*'**»INT "»» 



01862000 
01063000 

niad4onn 



01885000 
01886000 
niflfl7nnn 



018U8000 
01889000 

oievQQon 



01891000 

01892000 
016^3000 



01894000 
01895000 
Q1H9600 



01897000 

01898000 
01899000 



01900000 
01901000 

0!9u2nnn 



01903000 

01904000 
01905000 



01906000 
01907000 

oi9Qflnnn 



01909000 
01910000 
01911000 



01912000 
01913000 
01914000 



01915000 
01916000 
Qi9i7nno 



01916000 
01918200 
01919000 



01919100 
01919200 
Q19193QQ 



01919400 

0l9i!0000 



01922000 
01924000 
0192S00Q 



019^6000 
01927000 
Q 1 928Q0Q 



01929000 
01930000 
1»I4QOQ 



01932000 
01933000 
01934000 



01935000 
01936000 
01937000 



h 



10 



12 
13 
14 
15 
16 
17 
18 



19 

I " 
21 

22 

I « 
24 

25 

I ^^ 
27 

28 

I » 
30 

Si" 

\ » 
33 

34 

I 35 

36 

37 ~ 
I 36 
39 
40 
41 
42 
♦3~ 



45 
46 
47 
•8 
49 
SO 



a 

53 

54 
S5 



"D I SCON" » "DC* 

"cop^^'E:"»"ss 

"CIUSFM"."FSS 



.MO'S"TiFYOP"^ 



"ERRORM","Sg 
"RETMSG'V" 

''I IRMSr,">" 



•'SChEOM"*"SG 

"SEC^'SG'S" 

"n.SKTQfi".." 



"REUTCG"*" 
"PBOREL"*" 



"DISKMS"*"G 
"NOT US'V'ED 
"NOT l.lS"y"Ffcl 



"USEPBO"*" 
"SVPBT "*" 



"AUTOUN' 

"RNALL ' 
"C OD EC L ' 



'^•'LD 



'."AY 



"COREST"*" 
"OATACLVfWAY 
"NOT US"»"ED 



"NOT 

"NtJT 
"NQT 



US"#"tU 
US"j-"ED 
U S "#"ED 



"NOT US"*"ED 
"STOPT£"*"ST 

"PijNrHi„"*"rw 



"CDOMY"'" 
"P«TOl\L"#"Y 

"SEPARrt"."Ti;: 



"NOT US"»"ED "i 
WRITE(P»TF#2#R.C2«l]*2i>"M0D3IQ"* 
FOR [tg^ STEP I UNTK 35 DD 



); 



WRITE(P,TF#I,REALCBlT0iNC«»nJ*2* 

TBCAJ=2a + ;ix(35-I)]*T8tA + i] ); 
FOR l:=lrt STFP 1 UNTIL JV nil 



WRITECP*TFFi#REAL(8nON(R,I)),3# 

TB[Ai=16+3x(39-I)]*TeCA4l J#TBCA+2]); 
FOR HuHD STFP 1 UNTIL H7 nQ . 



end; 



WRITE(P#TF'I»REAL(Bn0N(H,l))*2* 
TBCA!=2X(4i'-I) J*18[A + 1]); 



NEXTITEM^ 

01 SPLAY ( MESS AQEHOLOER#FAlSE)i 

l i m Q t 



IF OPERAND(MESSAGEHQLDER'R) And (Rt=R,CF)XO THEN 

DO 

B EGIN , 



0l':J38000 

01939000 

■ QlV^O QOQ 



01941000 
01942000 



01944000 

01945000 
01946000 



«RITECLlNEt*]#lTEM#aCTAt.CR)# 
aCTAL(HlHAI.If<R))«QCTAl.<LQHAlF(R))," ")! 

M0VD(HE(R-»U/ROW»(R-)-U.C0L3*t.lN£C4a>M|NC9»MAXCOB"R?)j 



WRITE(PM5#LINE[*]); 
END 
QNT IL. 



(I 



■Ul) GEO VAXMeSSAGES 
NOT 0PERAN0CR,R) OR 
CR*«RtFF? « 



oa 



01947000 
01948000 
01949000 



0l9i0000 
01950100 
019^0200 



01951000 
01952000 
Ql9'!i.inno 



01954000 
01955000 
01955100 



01955200 
01955300 
01955305 



01955310 
01955320 
01955330 



01955340 
01955350 
01951360 



01955370 
01955380 
0l9-}5390, 



01955400 
01956000 
ni9ftQ000 



01961000 
01962000 
Q1903Q0U 



01964000 
01965000 
019 < > 6 Q00 



01967000 

01968000, 

01969000 



01970000 
01971000 
1972000 



01973000 
01974000 
01975000 



01976000 
01977000 
019 78000 



01979000 

01980000 
019B1QQQ 



01982000 
01983000 
Ot 9 9 4 0QO 



48 

"t'j 



52 



h 



2 
3 
A 
5 
6 
7 
8 
9 
10 
. 11 
12 
13 
14 
IS 
16 
17 
18 
19 
20 
21 
22 



I 23 

24 

25 
\ 26 

27 

28 

I 29 
30 
31 ~ 

I w 

33 

34 
I 35 

36 

37" 
I 36 

39 

40 

I 41 
42 

»3~ 



45 
4« 

( " 
«8 
49 

I 50 
51 



52 

I M 
54 

55 

f 56 

6Z. 



ELSE WRITE(P*NULL^'ESSAGES); 

IF DATACOM THEN 
BFftTN 



printqueue(Statiqnmessage:holder*0); 
pRiNTQueuE(taoKo*i); 

PRIMT0UEUECDC1<?Q i 2); ■ 



OlVdSOOO 
0l9a5l00 



PRINTQUEUE(PINGD»0); 
PRINTQUEUE(ILL» C0&3 CTK)); 
IF RJE THEN 



01V85120 
01985150 
ni9H'^200 



PRlNTQUEUE(RJErtAlTQ#0)^ 

NEXTPAGEi 

PRlNTARRAY( i> TATiaN? 



01*85250 
0lVfa5300 

Ol9 aS. 350 . 



FOR IlsQ STEP 

nextpage; 

E M O EL S E NEXTIT £. M; 



1 UNTIL 15 DO PARCW(STATI0N»I); 



01985375 
01985360 
01965385 



01 splay (nsl ate' false); 
displayclslate'F'alse); 

IF VARIFYCSLATEtA^SfTRtlE) AND 



01985390 
0l9b0000 
O lV tib lOO 



S.[47«1]=C AND 
OPERANDCNSLATE'N) 
N , Cl» 83 aC A ND 



01987000 
01988000 
0l9Ht00n 



AND 



nr 

N<S ANI5 

N,C47I1]«0 AND 
nPERANDCLSLATEtL) AND 



019^0000 
01991000 
0199^000 



01993000 
01994000 
01995000 



L.C1»8]=C AND 
L<S AND 
L, C /l 7 » UgO A ND 



DO 
BEGIN 



L/fN THEN 



01996000 
01997000 
0199 8 



NI»REALCB00lEANCN+2) AND BQULE ANC S-l) ) J 
WRITEtLINEC*]*3E*0CTAL(lN)* 

QCTALCHIHALFCA-»IN)?fOaAl, ClUHALF U^N ?)^ 



01999000 
02000000 



0CTAL(HIHALF(A+N+l))>OCTALCRt»L0HALF {A+N+l)))| 
IF l29S(R:aR,CF) AND RSPRTMAX THEN 
MQVFtNAMSrNAMtrCR].GF3>LlNrC33* 



02002000 
02003000 
02004000 



NAMECR].FF )/ 
WRITECP* 15'LlNEC*3i' 
END UNTIL Nsl 



02005000 
02006000 
02007000 



ELSE WRITECP^NULLSlATE); 

nextitem; nextpage; 

SGLTOG>»TRUE. 



02008000 
02009000 
20100QO 



IF TINU0K1=VERIFY(TINU#TA»TS) AND 

VERIFYCMULTITABLE»MA#KIS) AND 
VERIFY(LABELTABLE»LA*LS) AND 



02011000 
02012000 
02012100 



BEGIN 



VERIFY(RDCTA8LE*RA*RS) 
VERIFY (PRNTABLE'I'A^PS) 



02013000 
02U14000 
02015000 



AND 
THEN 



sj=max(TS,msi.ls*rs#ps)-i; 

WRIT£(P>IOATH)i 

R I t»0 STEP 1 UNTIL S OQ 



02016000 
02017000 
02018000 



Xfl 



BEGIN 

WRITECTBt*3*LUN»0CTAL(n); 
IF KTS THEN 



02019000 
02020000 
02021000 



BEGIN 

WRITE(LINEt*3fFT* 

(A:»HIHALF(TA-t>n;.C24t33> 



02022000 
02023000 
020^4000 



CCTAL(A,C2/I53)* 

A.C32»i3* 

CCTALCA.C35<733* 



02025000 
02026000 
02027000 



02028000 
02029000 
02030000 



■.13 
■iH| 



h 



17 
18 
19 



22 



24 
25 



28 
29 



33 



34 
35 



36 

3?" 



38 
39 



«2 



46 



X 



J3 
54 

55 
56 



^ 



□ CTALCA,[4«Ji6] )# 

( a;=lohalf(ta+i }) 

QCTAnAaa:^ » ' '^3 )' 



C24;i J, 



FNOi 



M0VC(LINEC0]*0*TBCUM»2'6); 



IF KMS THEN 

M0VCCMCCMA+I).HQW*CMA+n,CQL]'0»TB[4J»5M*0)/ 
TF KL5 THfcjN , , ^ .^_ 



IF KRS THEN 
REStN 



WRlTE(LlNEC*J#rtI' 
OCTALC CA«s:HlHALFCRA + n ) 
nCTALCA,r3?»0] )> 



t24S8] ), 



ccTALCA.caatioi)' 

0CTALC(A«»UQHALF<RA+I)),C24t'l7 3)# 
OCTAL(A.f aim )>l _ 



end; 

JF UP5 rrifch ^ 



BEGIN 

WfllTE(I.INEi:*J»PT* 
f AlBHTH&t rfPA*T )3,r34t| 1. 



A,[25J1]* 

CCTALCA.[26;liJ )* 

OCTMLf (A;=LQHALFCPA>I)&Arr^i^'J»'Jn 



fist l^Jlx. 



FNDj 



QCTAL{A,E30»18]))J 
M0VC(LlNEC0]#0'TBcii3*5^2*6); 



rtRITECP'15*TH[*n; 



END. 



E N U, i 



NEXTPAGEi 

01 SPLAY (I DQUESLUTS^ FALSE); 

D I SPLAY t I QQUE AVAILS FALSE); 



IF VERIFY(UMT*UA*US) rt|SD 

VERIFY(1QQUL,IA,IS) AND 
VERlFYfLQrATQlJP:,LA.I Sj Al\n 



VERIFY(FlNAL(auE»FA*FS) 
BEilN 

Sl«MAXfUS.IS>LS,FS)-li 



THEN 



WRITE(PMCQSH); 
FOR 11=0 STEP 1 
6FGTN 



UNTIL 3 DO 



WR I TE C T8[ * 3 # IFU»0CT AL( I ) * IF T iNUOK THEN 
LOHALF(TA+I),t3QllS3 tLSE "***") 1 

IF Kus thfn ■■■,::"'. ' -^^ •. ■ :..; ■. 



BEGIN 

hRITECLINEt*3/UFU* 

f A;«HTHAI.FCilA^n?,r2^M„1r 



0CTAL(A.C2S««3), 

0GTAL(A.C29lt3 5# 
A;.r37iir« " "■;. „.. 



A. [38113^ 
A. [39913' 
A.r40;?3f- 



0CTAL((Al«LOhALFCUA + n&Atl8«42t63) 
CCTAL(A.C33a53))| 
WOVCcLlNECflTtOtTan 1*a« ^aUM 



Cie:ib3)» 



02031000 
02032000 
02U3 3000 



02034000 
02035000 

ng036nnr) 



02037000 
02038000 
O203VOO0 



02040000 
02O4l0(J0 

n2042ono 



02043000 
02044000 
O2Q4iQn0 



02046000 
02047000 
02048000 



02049000 
02030000 
2Q51 00 



02052000 
02053000 
02054000 



02055000 
02050000 
02057000 



02058000 
02059000 

ozQftonnn 



02001000 
02062000 

o?063nfln 



02064000 
02064500 
02065000 



02066000 
02067000 
02068000 



02069000 
O2070000 
02071000 



02072000 
020/3000 
Q 2074QQ 



02075000 
02076000 
03077000 



02078000 
020/9000 

o?qaQooo 



02081000 
02082000 
Qg 08 3 OOP 



02084000 
02085000 
QPOBOOQf) 



02087 OOO 
02088000 
02.089000 



i'Hl| 



4A| 
471* 

*l 

50 
or 
52 
!>3 
54 
SS 
56 
57 



) « 

9 
10 

I " 
12 

13 

I 14 
IS 
16 

I <7 

rs 

19 

I 20 



21 
22 

I 23 
24 
26 

I 26 
27 
28 

I M 
30 

31 

I ^ 
33 

34 

I '^ 
96 



37 
1 38 



40 

I ♦' 
«2 

«3 



♦5 
•6 

I " 
48 
49 

I 50 



52 
I ^ 

95 
I 56 



end; 

IF KI5 
BEGIN 



THEN 



WRnECLINE£*l>Wf U, 
dCTAtCHIHALFCIA+I)), 
OCTttKLOHAl-FCIAf Unt 



I" D V C ( L I N E [ J # f T B [ 5 ] # 7 .. ,i / 1 J ; 

end; 

IF Kl.S TH E N .. 



BEQIN 

WRlTE(HNEE*3#iF0» 



CCTALCA.C2/»5] )f 
CCTALCA,[3.JJ4])# 
O CT A LCA , [ 3 6 : 6 3 )i 



end; 

IF KFS 

9FGtN 



GGTAL((A»eLOHALf CLA+I)<lAC18:«2»6 3),U8li5 3)^ 
QCTAL<A,C33tl53)); 
MDVC(LlfiFfQ1»n^TBtft|*7t2»ft); 



THEN 



WRITE{LINE£*J*WFU, 
OCTAt(HIHALFCFA+I)), 
nrTAi n hhai FtrA-H \^)i 



^«0vc(linec03*0'tb[12j^4»2*u; 

end; 

WR I TE(P>15«r BC i» 3 ); 



end; 
nextitem; 

PRINTARRAYfCHANN n 



11. 



nextitem; 
display(0iskcunt*false); 

TF DFX THEN B£GlN 



display(Euw*falSE); 
printarrayceug); 

end; 



IF SHAREDISK THEN 
BEGIN 

nextttem; 



O2OVO000 
020^1000 

n2uv?ono. 



020V3000 
02094000 
02095000 



020y6000 
02097000 

020vaooo 



02099000 
02100000 

Q2iQinnn 



021U2000 
02103000 

o^io a ooo 



02105000 
02106000 
QglQ7000 



02108000 
021U9000 
OPllQQQQ 



02 11 1000 
02112000 
Q?113QQQ 



02114000 
02115000 
021 IftOOO 



02117000 
02U7050 
Q»1171QG 



02117125 
02U7150 



02117160 
02117200 
2 1 1 7 2 05 



DISriAYCLCAVAIL. FALSE); 

IF VARIFY(L0UE»UA*US*TRWE) AND 

QPl:RA^jDCl OAVATl .FA) AmQ FA QEo 



02117400 
02U7410 
02117420 



IF FAsC then WRlTECP^NUtLQUE) ELSE 
BEGIN 
WRTTE(PtnBL]>LQu£HDh;; 



AND FA LEO US THEN 



02117430 
02117440 
02117450 



02117460 
02U7470 
02U74flO 



Sl«MINC20*FA''l)l 02117490 

FOR C:*0 STEP 1 UNTIL S 1)0 02117500 

IF NOT OPFRANDCUA^C^I,) OR tLAf«LiCll71y GEQ 64 THEN 02117510 



END ELSE 
END LQUC; 
ENDI 



WRlTE(P*BADLQUENTHY#QCTAL(C)»OOTAL(HlHAi.F(L))* 02117520 

aCTAL(LOHALFCL))) ELSE 02U7530 

rtR ITFfP#Fl QI1E.UCTALCC),QCTA1 C t A ) > L . [ 8 : 4 1 , I .f 12t36l) 021x7540 



WRITECP*8ADLQUE); 



xm 



cqmmoniscomsave; 
sgltqg»«false; 
DUMPING MCP Info; 



02117550 
02117560 
0?llflOQQ 



PR06EDUI^E 
BEGIN 

FO R MAT 



oumpauxmem; 

AUXt«nR*'«AU" MEMORY DUMP"3« 



02118100 
02118200 

02119000 



02119100 
02119110 
2U9 1 2Q 



nri 



rjb 



h 



.1 



1 

2 
3 
4 
S 
6 
7 
8 
9 
10 



12 
13 

I 1* 
IS 
16 

'7 
18 

19 
20 
21 



22 

I » 
24 
25 

1 ».. 
27 
28 

I M 
30 

31 "^ 

34 

3S 
36 

37 ~ 

38 ; 
39 
40 
41 



42 
43 



46 
46 
♦7 
•8 
49 
50 



52 
i3 

54 

55 

56 



AUXMESSC* PRINTING CQNTEMi: OF DR' 
LABEL TRYAN0THLR,EXIT; 
RnniLAN CHM^iAVF J . 



.Al>' 



» « • 



')i 



RELOADtaTRUEJ 
THVANiTHERJX 



02119130 
021191^0 



nekjtpage; 

load; 

if auxtype 



02119145 
02119150 
n?li9i<^n 



BEGIN 



NEQ THFN % AiJXMt^M PRfciJENT 



02119170 
02U9180 
02U9190 



NEXT I TEM i 
WRITFtP.AUX.16-t-AUXTYP£ n l M U ^ : 



writecspo'aux mess* 16+ auxtype 

nextitem; 

cnMSAvE;=cnMMr,iN; 



02U9200 
02119210 
Q2n92?0 



UIV n)} 



C0MM0Nt»BO0LEANC5i2); 
PRINT(0*32768); 



X ALPHA/OCTAL 



02119230 
02119240 



GO tryanother; 
end; 

EXIT > RE LOflL )» s F ALS EJ 



02119245 

02U9250 
n?U9255 



END oumpauxmem; 

PROCEDURE FIXFID; 
BEGIN 



02119260 
02119270 
021 19280- 



02U9290 
02119300 
021 19310 



REAL a; 02119320 

FORMAT FNEWFILEC"#NEXT FILt TO BE aNaLY/IeD IS MEMORY/"* Al^ a6 ) ; 02119330 
STREAM PR O C E DURE i VIIN U . ^ 1 f . N i rt ) ; VA L U ii. N* . - 02 1 l^^a^O 



BEGIN SIMLOC N; St«sSl + 5; UlJisA; DI««0l + 5j DS!*3 SUB END. 

MINUSH1»T0FID); 

FILL MpUMg hiTH *>TDFlQ» 



writecspo*fnewf1le*tof10.c6j6j»tdfid); 
end; 

FQR-MAT CQI HnR("b5'^00 CQiLATING jEQuENCF. "//y ri* "0 1 234b67'V :) * 



02U9350 
02119360 
021 19370 



FPUNTC«HANG CAUSED BY J 
C0LINECX5»Il*X2f X8); 
ARRAY COLI ATFrm7i; , 



•*X24)» 



02119380 
02119390 
2 U 9bQQ 



INTEGER DUMPD; 
PROCEDURE initialize; 
CQMMENTiZFRn VARlA^LFS 



0211 9503 
02 1195 to 
02 1 1 96 0Q 



PROCESSED IN A GIVEN RUN; 

BEGIN 

TNTrGFR K.j; 



& ARRAYS IN THE FVFnT MOKE THAN UNE FIlE IS 



02120000 
02120100 
021*^0110 



LABEL exit; 

if not RELOAD THEN 

cnMMFNTt7ER0 REALS 



02120115 
02l£0l20 
021^0135 



I«» 
R»» 
VJOBNIJMli 



GO exit; 
ft iNTer.CrtvRa? 



02120130 
021<:0135 

Qsifioun 



VBEDJs 
TABLESLQCJ» 

M4^ 



02120145 

02120150 

-Q212Q1S5 



HINLNK«8 
MIN9AD«« 
MAXBAOli 



02120160 
02120163 
02i;p0l,70 



MAXLNKIs 
PRTCODE«* 

-QJ 



02120175 
02120180 
Q212Qlft§ 



MAXMCPROG:a 

ESPI* 

RAOSAVEPRTLnCl« 



02120190 
02120195 
0^120200 



02120205 
02120210 
Q 2 i ig021S 



47' 
4H 

S2 
hi 



"-' 



1 

2 
3 
4 
6 
6 
7 
8 
9 
10 
11 
12 



13 
14 
IS 
16 
17 
18 



19 
20 
21 

a 



23 
24 
2G 
' 26 
27 
28 
29 
30 
31 ~ 



33 
33 



34 
35 
36 
37" 



38 

39 



40 
41 
42 
43" 



45 
46 

I 47 



49 
1 50 



51 

52 

I 53 

54 



95 

I 56 



INTSPMAXSs 
PRGWSJ= 

-OJ 



MAXSTKts 
BEDSTK!* 



COMMENTSMAKE BOOLEANS FALSE; 
|,„NKSQK?a ^^___^ 



AV^tNKOKls 
SOMOKFis 
Sfl M flKBts 



NEEDCHECKAVAILNKS:- 

FALSE/ 

BADCOMMENH^; 



false; 

commentizero arrays* 

FOR KMQ STFP 1 UNTII 



MTXMAX no 



FOR 



MUSTKCK] Ja 
0; 
K> = STEP 1 UNTIL T NAMES I ZF:.-!, Q.n 



INTSPCKlr 
0; 



EXITI 



ENO initialize; 

RES>TARTlXai 

INITI AL li^E; 



load; 
ouMpMCPSPRT; 

ir MOT COMMON 



THEN 



IF DUMPCESSPOQLUMY THEN 
BEGIN 

-— d ump ce s . spo ijl ; 



60 eophog; 
end; 

IF NOT CnWMnN TMFN 



BEGIN 

CHE 

aLi 



ckmemorylinks; 

STACKSFRgMTHLBFQ? 



end; 



getanosortmcprog; 

IF CflMNT then begin 



WRITE(PCD8L3#3TARSJ; 
IF NOT COMMON THEN 
l^ Q P ERANP ( 1Q7>PRQ>^5) A^ 



02 
02 



ic0220 
120225 
1^0230 



02 

02 

-02. 



120235 
120240 
120205 



02 
02 

-0 



120300 
120400 
12040'^ 



Ziii 



02 

02 

-02 



120410 
120415 
lkQ4?n 



02 

02 

-Oi 



120425 
120430 
2XiJ 



2120435 



02 

02 

J12 



120500 
120600 



02 

02 

-02 



120610 
120615 
120650 



02 
02 

-02 



120655 
120660 
120700 



02: 
02: 



120705 
:120900 
2 l «? fl91Q 



02 
02 



121000 
122000 
122050 



02 
02 



122100 
122200 



021 223 00 



02 
< 02 

_a2 



122400 
122500 
123QQQ 



02 

02 

-02 



124000 
125000 

,u,6ngQ 



02 

02 
-02 



126500 
127000 

i2Honn 



PHUwS NEU "EEEE"<i"EEEE'»Cl ;25l23l 



02 

02 

THEN 02 



129000 
129050 
l«i91QQ 



IF POATaOESCCPUNTeR#R) AMO H.cF kSS 4096 THEN 
BEGIN 

it«R.rfliioi; _____..^______ 



02 

02 

Ji2 



129110 
129120 
18 9130 



rjsr.cf; 

IF PROWS GEU H AND PHOWb LEtt H+i THEN 
BEGIN 



WRITE(LlNEt*3*FPUNT)* 

M0»0{MCPR0WS.RUW*PRU»$,CQL]»HNEt2a*3); 
WRITEfPLnftL3*l5>LINE£*l);. 



02 



-02 



02 
02 

_Q2 



129140 
129150 
129160 



129170 
129180 



ENDj 



end; 

if badcokment then writec p [ dbl ] > comntp ar ) else 



02 
02 

02 



129200 
129210 
130000 



BEGIN 

WRITE(P»IC*C0MMT[*3); 
MOVE(COMMTC10 3»COMMTC0 3MO?; 



02 
02 
02 



II 1000 
132000 
133000 



n 

u 



I'. 

50 



>T 



12 
13 
U 
15 
16 
17 
18 



19 
20 



2S 



27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37" 



38 



40 
41 
42 



43 



45 
46 



•8 

49 
50 



WRITE(P#lC*CGt.iMTt*J y> 

enh; 

WMTFCP[PaGt.1.hTARa)f 



end; 

IF NOT 
BEGIN 



02134000 
OiJl JbOOO 
02136000 



COMMON THEN 



02137000 
02137100 
Q21 37 2 Q Q 



IF NQDUMP THEN EL^E 
IF 0PERAND(16#R) AND 
THFN BEGIN 



H GEQ 12 AND R LEG 15 



NEEDCHECKAVAILNKS»*NOT AVALNKOk; 
PRINTCO^R); 



02138000 
02139000 
P2H0000 



THEN IF 0PERANDCR + 96*PR0WS) AND PHOwS NLQ ••EEtt"4"EtEE''L 1 ? 25 » 23] 
fHENWRITE(PCDeL]»ITEM^UCTALCR)*0tTALCHlHALF(PH0rtSS=rt+96))* 

OCTA L C L tJHA l. KfPRnH . S) :) )/ ^ 



02U1000 
02142000 
02142100 



Ot)NTPRINTLlNKS«»TRUE; 
PRINT (R+ 1,16); 
____ END ELSE PRlNT(Q»36i; 



DONTPRINTLINKS»«TRUt; 

IF NODUMP THEN ELSE 

IF MTNLNK QTR DUK'PDia36 



THEN.. 



BEGIN 



oumpdi«minlnk; 

PRINT(36»64?f % 



INTERRUPT f:ODE 



PRINTC64,U2); X IisTEHRUPT 
PRlNTC112#PRTMAX + n; * PRT 
IF NOT NOMCPCO U E THtN 



iTACK 



IF (R:sOUT£RBLOCKt0])sO THEN PRINTC 36>M INLNK ) ELSE 
BEGIN 
PRTNTtB.CF»R.FF4- 1); A OUTFRfltOCK 



DUMPMCPSAVEcODE; % save PKOctDUKta/ARRAYS 



ENDJ 



end; 



oontprintlinksjsfalse; 

IF LNKSOK then 

DlJMPMFMnRYANnNnTESTACKSfMTNLNK,DUMPn;;»MAXlNkl 

ELSE 
BEGIN 

IL. 



SOMOKF THFN 



dumpmemoryanonot£stackscuumpd#dumpo«»minbao); 

IF SOMOkB then 

BEGIN [ ■ •:'.•.. •. • . • ■. 



printcdumpd'Maxqadj; 
oumpmemoryandnotestackbcmaxbad*dumpd«-maxlnk); 



end; 



end; 

end! x if not common 
print(Qumpo,maxcqr*1); 



IF NODUMP THEN 
BEGIN 
NOJ UM P TQ G r 



amiix. 



COMMaN»=COMWON AND NOT BQOlEANC 384 ) ; 

end; 

if not common thfk , 



BEGIN 

listmcprug; 

DnMPMrPTNFn; 



getsortandlistintrinsics; 
oumprograms; 

oumpcontrolstacks; 



02142120 
02142200 
02142250 



02142260 
02142300 
02143000 



02143100 

02144000 
02145000 



02146000 
02147000 
02146000 



02149Q00 
02149100 
2 14 9200 



02H9300 
021493SO 
02149400 



02149450 
02150000 
0'^15Un'i(l 



02150075 
02151000 
02152000 



02153000 
02154000 
02155000 



02156000 
02157000 
02158000 



02160000 

02161000 

-Q 2 1 2.0. 00 



02163000 
02163100 
2165000 



02165100 
02165110 



02165130 
0216S140 
02166 



02167000 
02168000 
02169000 



02170000 
02171000 
Q2I7EQ00 



iid 



IS 

I47 
Ue 

Vj\ 
50 
■j\ 
52 
63 
&4 
•lb 
bti 



.._^J' 



1 

I 2 
3 
4 

\ 5 
6 

7 

I e ■ 

9 
10 
11 
12 
13 
14 
IS 



16 

18 

19 

I 2° 
21 
22 

I 23 
24 
26 

I » 
27 
28 

I M 

30 
31 

) » 
93 
34 

I 35 



36 

37' 
k 38 

39 

40 
I 41 

42 

43 

I M 

45 
46 

I " 
«8 

49 

I SO 

51 

52 

I ^ 
54 

55 
f 56 



printselectecarrays; 
dumpauxwem; 



END. 



EOPROGIX 

FILL COLLATEC*] WITH 
OCTnOn 1020^04050607* 



0CT1011121314151617* 
0CT2021B2232'»252627' 
0CT30 - i l3 2 3 33 <t 3 5 36 37 * 



0Ct40414243444546«7» 
0CT5051525354555657# 
nCT6Q6l6?A^64ft56<^67y 



0CT7O71727374757677; 
WRITECPCPAGEJ); 

WRITF(Ptr.OLHDH).' 



FOR IlaO STEP 1 UKTIL J DO 
BEGIN 

WRITEaiNEt*J»f :O L l WE>I)? 



END,? 



M0VE(C0LLATECl3'LlNE[nM)^ 
WR1TE(P*2*LI\E[*]); 



IF MULTI AND TDFIC. 1 30 « 18 J GTR 1 TMEN 
BEGIN 
IF NOT REPEATING TMEN .■■" ^ 



BEGIN 



repeatingsstrue; 

■ S PAC E c^'o^JMp*" n [, xxsxaj; 



xxiclose(moump#*)^ 

end; 

F IKF in t 



reloadj=true; 
phintcommonvalues; 

WRITECPCDRLIW WRll ECPCQBL J ? ; 



WRlTE(P*F|Nn; 

NEXTPAQEJ 

IF NODUMPTUG THgN BEGIN 



NODUMPTOGJ=FALi>E; 
C0MM0N:aCnMh*nN OH 

MYSTACKADRis'i; 



BOOLt;«i^N( 364) eno; 



60 restart; 

end; 

END;X %%%%%%%% t % % END inner BLOCK 



021/2100 
02^2200 
02173000 



02173400 
02173500 
021 7 35 10 



02173b20 
02l73b30 
0^1 / 354 



02173550 
0217 3560 
02171570 



021/3580 
021735V0 
02173600 



02173610 
0217 36^0 
02171630 



02173640 

02173650 
0217,^660 



02 U 17 00 
02 1 7 37 10 
0217 3720 



0217 37 30 
02173740 
0217 3750 



02173760 
02173770 
Q?iy37fi0 



02173790 
021/3791 
Q 2 1/J79 2 



02173793 

0217 3795 
02173796 



02l/'3797 
02173798 
0Pt73799 



PRINTCOMMONVALUES; 
WRlTE(P[OBL]);WRlTE(P[DbL]); 

WRITF(P^FINI); 

END, 

end;eno. 



% % % %%%%%%% % 



02173800 
02173810 
02Uft000 



02174500 
02175000 
021/6000 



LAST CARD ON OCRDINQ TAPt 
00OeOOOOO0O0O0OOyx^A40XF 



02 i 70000 
99999999 



If. 
1/ 



|.-M| 

i.'.'i; 



h 



'i 



47 ' 

48 

49 
•M 
&l 
52 
63 
54 
■A 
')6 



LABEL 0OOOOO0OOPRINTEKOO175100CC LX OB JtC T/RE AU ; ULt SOURCEF I Ltsb YMBOt/DUMP ANL«-OUOOOOO 



OBviECT /READ 



3 

4 

6 

V 

9 
10 

12 
13 

IS 
16 

18 

19 
I 20 

21 

22 
k 23 

24 

25 

27 
28 

30 
Si" 

33 
34 

I '' 
36 

37 ' 

I ™ 
39 

40 
\ 41 

42 

43 " 
I 44 

46 

46 

47 

ta 

49 

SO 
SI 
52 

a 

S4 

55 
95 







43 

45 
4(v 
47 
48 



62 
53 
54 
>>5 

16« 

57; 



